X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXXml.pm;h=c6c8ee6922835d3c160789544878f30c1be61c0d;hb=ccf7c87f955ebc8534681247b70371c00b14609f;hp=16f40eaa78678fa0c1e0d21c882d20b5dc3b3e77;hpb=7abfb64b58d106d8352eb365b63cec23669c4e0d;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;