11 lines
352 B
Perl
Executable file
11 lines
352 B
Perl
Executable file
#!/usr/bin/perl
|
|
# check the current SAX Parser
|
|
use XML::SAX::ParserFactory;
|
|
$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");
|