[Perl-win32-gui-cvscommit] Win32-GUI/Win32-GUI-Constants Constants.pm,1.1,1.2

[Robert May]

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

Modified Files:
        Constants.pm 
Log Message:
Fix for backwards compatibility with Win32::GUI::CONSTNAME barewords

Index: Constants.pm
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/Win32-GUI-Constants/Constants.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Constants.pm        13 May 2006 15:39:30 -0000      1.1
--- Constants.pm        17 May 2006 21:14:54 -0000      1.2
***************
*** 197,200 ****
--- 197,205 ----
                          next;
                      }
+                   # :compatibility_win32_gui has very special semantics if
+                   # the calling package is Win32::GUI for backwards 
compatibility
+                   if (($spec eq 'compatibility_win32_gui') and (caller eq 
'Win32::GUI')) {
+                         $pkg = 'Win32::GUI';
+                   }
                  }
                  elsif ($spec =~ m:^/(.*)/$:){
***************
*** 209,213 ****
                  }
  
!                 warn "Import ".($remove ? "del":"add").": @names " if 
$Verbose;
  
                  if ($remove) {
--- 214,218 ----
                  }
  
!               #XXX warn "Import ".($remove ? "del":"add").": @names " if 
$Verbose;
  
                  if ($remove) {
***************
*** 231,235 ****
      # export @imports to caller's namespace
      if($Verbose) {
!         my $t = join(", ", sort @imports) . "\n" . scalar(@imports) . " 
symbols being ";
          $t   .= "imported into $callpkg from $pkg " if $export;
          $t   .= "and " if $export and $inline;
--- 236,241 ----
      # export @imports to caller's namespace
      if($Verbose) {
!         #XXX my $t = join(", ", sort @imports) . "\n" . scalar(@imports) . " 
symbols being ";
!       my $t = scalar(@imports) . " symbols being ";
          $t   .= "imported into $callpkg from $pkg " if $export;
          $t   .= "and " if $export and $inline;