From: Grant M. <gr...@us...> - 2007-04-06 02:59:12
|
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; } |