This is an automatically generated mail from the syncmail system. Do not reply directly to this email. Further discussion should take place on the hackers list: [EMAIL PROTECTED]
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"); + } ------------------------------------------------------------------------- This SF.net email is sponsored by: Microsoft Defy all challenges. Microsoft(R) Visual Studio 2008. http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/ _______________________________________________ Perl-win32-gui-cvscommit mailing list Perl-win32-gui-cvscommit@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-cvscommit http://perl-win32-gui.sourceforge.net/