fix 5.8 ism that does not work on 5.6 (incrementing a subroutine).

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 39b023c482705163e1be93f84e256766cbffcfa9..352a4f6a4aae9bd715467aab117ad842bd295dd9 100644 (file)
--- 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+$/;