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