From cea55a2faa24cd58756e48a54b5e00e43a16bbae Mon Sep 17 00:00:00 2001 From: minima Date: Wed, 11 Jan 2006 20:25:01 +0000 Subject: [PATCH] only allow xml if we are doing xml --- perl/DXProt.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/perl/DXProt.pm b/perl/DXProt.pm index 4a43ef08..c056db97 100644 --- 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+$/; -- 2.43.0