X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXXml.pm;h=c6c8ee6922835d3c160789544878f30c1be61c0d;hb=0154b38552abaaa4e79ebd9f3e647352acacbcc7;hp=16f40eaa78678fa0c1e0d21c882d20b5dc3b3e77;hpb=dc305f992d75a6b35edda9e1aefab510a3ed617e;p=spider.git

diff --git a/perl/DXXml.pm b/perl/DXXml.pm
index 16f40eaa..c6c8ee69 100644
--- a/perl/DXXml.pm
+++ b/perl/DXXml.pm
@@ -23,6 +23,8 @@ $xs = undef;							# the XML::Simple parser instance
 
 sub init
 {
+	return unless $main::do_xml;
+	
 	eval { require XML::Simple; };
 	unless ($@) {
 		import XML::Simple;