From e96f7ff867fa2a8bd65ebc1c1621e8b8f60cb468 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Tue, 10 Jan 2006 16:23:21 +0000
Subject: [PATCH] fix 5.8 ism that does not work on 5.6 (incrementing a
 subroutine).

---
 perl/DXProt.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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+$/;
-- 
2.34.1