|
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"; |
