X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=352a4f6a4aae9bd715467aab117ad842bd295dd9;hb=0f0ef738611adb7e4a2b6ae8207a8506d3f26563;hp=39b023c482705163e1be93f84e256766cbffcfa9;hpb=61db59003ac70a14ec41b3adfb36df2f7909bc88;p=spider.git

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