only allow xml if we are doing xml

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 4a43ef086d1b381800960dd47158ce3fe5482a98..c056db9706e72ff1f6abb708d00855a0524e04fe 100644 (file)
--- 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+$/;