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$/, @_));
}
|
