Update of /cvsroot/perl-win32-gui/Win32-GUI/t
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26710/t
Modified Files:
02_window.t
Log Message:
Fix 'uninitialised value in subroutine entry' reported to the users list by M2U (Matthias).
Index: 02_window.t
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/t/02_window.t,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** 02_window.t 16 May 2006 18:57:26 -0000 1.3
--- 02_window.t 8 Feb 2008 14:24:37 -0000 1.4
***************
*** 56,57 ****
--- 56,76 ----
is($W->Text ,"TestChanged", "Change winodw TITLE");
+ # Adding style WS_POPUP causes a change in message ordering during
+ # CreateWindowEx(), esp. it adds a WM_SIZE, which we will try to
+ # dispatch. Prior to 1.05_90 we didn't have $win->{-handle}
+ # set before the callback, resuting in 'use of uninitialised
+ # value in subroutine entry' when calling handleFrom() in XS.
+ {
+ use warnings;
+ use Win32::GUI::Constants();
+
+ my $warning;
+ local $SIG{__WARN__} = sub {
+ $warning = $_[0];
+ };
+
+ $warning = '';
+ my $win = Win32::GUI::Window->new(-addstyle => Win32::GUI::Constants::WS_POPUP());
+ undef $win;
+ is($warning, '', "Don't want warnings from constructors");
+ }
|
