Lines 345-351
Link Here
|
345 |
return($self->build_tree_xml_parser($filename, $string)); |
345 |
return($self->build_tree_xml_parser($filename, $string)); |
346 |
} |
346 |
} |
347 |
|
347 |
|
348 |
eval { require XML::SAX; }; # We didn't need it until now |
348 |
eval { require XML::SAX::PurePerl; }; # We didn't need it until now |
349 |
if($@) { # No XML::SAX - fall back to XML::Parser |
349 |
if($@) { # No XML::SAX - fall back to XML::Parser |
350 |
if($preferred_parser) { # unless a SAX parser was expressly requested |
350 |
if($preferred_parser) { # unless a SAX parser was expressly requested |
351 |
croak "XMLin() could not load XML::SAX"; |
351 |
croak "XMLin() could not load XML::SAX"; |