16 lines
422 B
Perl
Executable File
16 lines
422 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 the Koha wiki documentation at https://wiki.koha-community.org.\n");
|