use XML::Parser (it should be adequate for the little things we are doing).

diff --git a/perl/DXXml.pm b/perl/DXXml.pm
index fe4cb2b8af8efc6affdc47079922e6f56f25e3c5..c29620bbb2cf9a239b1fdb7d86e1a3ce3091f676 100644 (file)
--- a/perl/DXXml.pm
+++ b/perl/DXXml.pm
@@ -42,13 +42,12 @@ sub init
        return unless $main::do_xml;
        
        eval { require XML::Simple };
-       eval { require XML::SAX } unless $@;
-       eval { require XML::SAX::Expat } unless $@;
+       eval { require XML::Parser } unless $@;
        if ($@) {
                LogDbg('err', "do_xml was set to 1 and the XML routines failed to load ($@)");
                $main::do_xml = 0;
        } else {
-               $XML::Simple::PREFERRED_PARSER = 'XML::SAX::Expat';
+               $XML::Simple::PREFERRED_PARSER = 'XML::Parser';
                import XML::Simple;
                $DXProt::handle_xml = 1;
                $xs = new XML::Simple(Cache=>[]);