X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXChannel.pm;h=efaffb6c04d80be433ac080fd2470c53ea340185;hb=edfc15583881f720a65516d975d26cdb6b7c8469;hp=127f3a0604665e6631784dbc8a871253f72cfb95;hpb=0148e301a41d89c154254a457f7d79334eea9442;p=spider.git

diff --git a/perl/DXChannel.pm b/perl/DXChannel.pm
index 127f3a06..efaffb6c 100644
--- a/perl/DXChannel.pm
+++ b/perl/DXChannel.pm
@@ -724,6 +724,19 @@ sub process
 	}
 }
 
+sub handle_xml
+{
+	my $self = shift;
+	my $r = 0;
+	
+	if (DXXml::available()) {
+		$r = $self->{handle_xml} || 0;
+	} else {
+		delete $self->{handle_xml} if exists $self->{handle_xml};
+	}
+	return $r;
+}
+
 #no strict;
 sub AUTOLOAD
 {