From 0f0ef738611adb7e4a2b6ae8207a8506d3f26563 Mon Sep 17 00:00:00 2001 From: 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.43.0