Koha/misc/sax_parser_print.pl
Joe Atzberger ccee815f4a Bug 2617: Add strict (and warnings), partial fix.
These are some of the simpler scripts to add strict to.
Corrected perldoc for Bookfund.

Signed-off-by: Galen Charlton <galen.charlton@liblime.com>
2009-03-11 08:36:55 -05:00

15 lines
383 B
Perl
Executable file

#!/usr/bin/perl
# check the current SAX Parser
use strict;
use warnings;
use XML::SAX::ParserFactory;
my $parser = XML::SAX::ParserFactory->parser();
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");