[Perl-win32-gui-cvscommit] Win32-GUI GUI.pm,1.44,1.45

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

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.