perl-win32-gui-cvscommit

[Robert M. <rob...@us...>]

Update of /cvsroot/perl-win32-gui/Win32-GUI/Win32-GUI-Constants
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23518/Win32-GUI-Constants

Modified Files:
	Constants.pm 
Log Message:
Fix Win32::GUI::constant() to support old calling method for WIN32__GUI__ constants

Index: Constants.pm
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/Win32-GUI-Constants/Constants.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** Constants.pm	17 May 2006 22:15:02 -0000	1.3
--- Constants.pm	18 May 2006 19:40:36 -0000	1.4
***************
*** 259,263 ****
              *{"${callpkg}::$sym"} = \&{"${pkg}::$sym"} if $export;
              &{"${pkg}::$sym"} if $inline;  # force AUTOLOAD
!             eval "sub Win32::GUI::$sym();" if $compatibility_win32_gui;
          }
  
--- 259,263 ----
              *{"${callpkg}::$sym"} = \&{"${pkg}::$sym"} if $export;
              &{"${pkg}::$sym"} if $inline;  # force AUTOLOAD
! 	    eval "sub Win32::GUI::$sym();" if $compatibility_win32_gui;
          }