The Camel and his confounded Ball

May I bend your ears one last time to this matter.

The following script demonstrates the phenomenon:

	#!perl
	# exit via Cmd+period

	use Mac::Events;
	use Mac::Events qw(@Event);

	$Event[mouseDown] = sub { while (WaitMouseUp()) {} };

	WaitNextEvent while 1;


About two seconds after mouse-down MacPerl switches to the 
spin-cursor and remains that way until mouse-up.

IMO this behaviour is highly undesirable since it spoils any 
application involving a 'WaitMouseUp' event, such as button-tracking, 
auto-scrolling and similar regular GUI functions.

Does anyone agree this behaviour should be regarded as a bug and 
registered as such?

Alan Fry