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

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

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