Update of /cvsroot/perl-win32-gui/Win32-GUI
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20384
Modified Files:
GUI.pm
Log Message:
Don't let subclasses of Win32::GUI inherit Win32::GUI::import
Index: GUI.pm
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/GUI.pm,v
retrieving revision 1.44
retrieving revision 1.45
diff -C2 -d -r1.44 -r1.45
*** GUI.pm 18 May 2006 19:40:36 -0000 1.44
--- GUI.pm 30 May 2006 18:20:57 -0000 1.45
***************
*** 47,50 ****
--- 47,53 ----
my @imports = @_;
+ # Don't let this import() get inherited
+ return unless $pkg eq 'Win32::GUI';
+
# use Win32::GUI; currently exports a load of constants for
# backwards compatibility with earlier Win32::GUI versions.
