X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=c056db9706e72ff1f6abb708d00855a0524e04fe;hb=cea55a2faa24cd58756e48a54b5e00e43a16bbae;hp=4a43ef086d1b381800960dd47158ce3fe5482a98;hpb=4937d077fd03279aae2cbba6f1252ffdb04cc7a5;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 4a43ef08..c056db97 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -933,7 +933,7 @@ sub handle_18
 			$self->user->put;
 			$self->sort('S');
 		}
-		$self->{handle_xml}++ if $_[1] =~ /\bxml\b/;
+		$self->{handle_xml}++ if $main::do_xml && $_[1] =~ /\bxml\b/;
 	} else {
 		$self->version(50.0);
 		$self->version($_[2] / 100) if $_[2] && $_[2] =~ /^\d+$/;