From: Grant M. <gr...@us...> - 2007-04-05 22:32:29
|
Update of /cvsroot/perl-xml/xml-simple/lib/XML In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14221/lib/XML Modified Files: Simple.pm Log Message: - use ::ExportLevel (patch from Stuart Moore) Index: Simple.pm =================================================================== RCS file: /cvsroot/perl-xml/xml-simple/lib/XML/Simple.pm,v retrieving revision 1.36 retrieving revision 1.37 diff -u -d -r1.36 -r1.37 --- Simple.pm 29 Jan 2007 10:17:06 -0000 1.36 +++ Simple.pm 5 Apr 2007 22:32:26 -0000 1.37 @@ -97,7 +97,7 @@ # Pass everything else to Exporter.pm - __PACKAGE__->export_to_level(1, grep(!/^:strict$/, @_)); + __PACKAGE__->export_to_level($Exporter::ExportLevel + 1, grep(!/^:strict$/, @_)); } |