[Perl-win32-gui-cvscommit] Win32-GUI/Win32-GUI-Constants Constants.pm,1.3,1.4

[Robert May]

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;
          }