Make sax_parser_print provide more obvious feedback.

Signed-off-by: Galen Charlton <galen.charlton@liblime.com>
This commit is contained in:
Joe Atzberger 2009-02-10 14:16:31 -06:00 committed by Galen Charlton
parent b246e1bf60
commit e6f3fb9591
1 changed files with 7 additions and 2 deletions

View File

@ -2,5 +2,10 @@
# check the current SAX Parser
use XML::SAX::ParserFactory;
$parser = XML::SAX::ParserFactory->parser();
print "$parser\n";
print "Koha wants something like:
XML::LibXML::SAX::Parser=HASH(0x81fe220)
You have:
$parser\n";
print "Looks " .
($parser =~ /^XML::LibXML::SAX::Parser=HASH/ ?
"good.\n" : "bad, check INSTALL.* documentation.\n");