[perl-xml-cvs] CVS: xml-simple/lib/XML Simple.pm,1.37,1.38

[Grant M. <gr...@us...>]

Update of /cvsroot/perl-xml/xml-simple/lib/XML
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9797/lib/XML

Modified Files:
	Simple.pm 
Log Message:
- reimplement exporter change

Index: Simple.pm
===================================================================
RCS file: /cvsroot/perl-xml/xml-simple/lib/XML/Simple.pm,v
retrieving revision 1.37
retrieving revision 1.38
diff -u -d -r1.37 -r1.38
--- Simple.pm	5 Apr 2007 22:32:26 -0000	1.37
+++ Simple.pm	6 Apr 2007 02:59:03 -0000	1.38
@@ -90,14 +90,14 @@
 #
 
 sub import {
-
   # Handle the :strict tag
   
   $StrictMode = 1 if grep(/^:strict$/, @_);
 
   # Pass everything else to Exporter.pm
 
-  __PACKAGE__->export_to_level($Exporter::ExportLevel + 1, grep(!/^:strict$/, @_));
+  @_ = grep(!/^:strict$/, @_);
+  goto &Exporter::import;
 }