[perl-win32-gui-users] DoEvents and Uninit's...

[Morbus I. <mo...@di...>]

Hey there... this is driving me flippin' batty. I've included a GUI layer 
library below that can be dropped into an existing program (currently, the 
one I'm using it with is AmphetaDesk at disobey.com/amphetadesk/).

Besides some uninit's that I know about and plan on fixing, I'm getting 
uninit's *every single time* that the DoEvents is called. The specific 
lines are 130 and 160, which match up to these blocks:

	sub gui_listen {

	# anyone there?
    	Win32::GUI::PeekMessage(0,0,0);
    	Win32::GUI::DoEvents();

	return 1;
	}

The error is the normal "use of unitialized value" junk, and it points 
strictly to the DoEvents line.

What am I doing wrong? How can I make 'em go away?