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