#13 uninitialised value warning

open
nobody
None
5
2009-01-06
2009-01-06
Anonymous
No

If the example calc.pl is run using perl v5.8.8 on windows XP, the code runs ok but I get 2 warnings:

Use of uninitialized value in string eq at C:/Perl/site/lib/Win32/GuiTest.pm lin
e 648.

This arises in the sub FindWindowLike() in the 'if($_[0] eg...)' tests.

Copying the the version of this if structure from v1.56 (availible on cpan but not as far as I can tell as a ppm package) fixes the problem. Briefly this change tests if(defined($_[0]) before performing the eq test.

Could someone make v1.56 availible as a ppm package?

Discussion