19 lines
436 B
Perl
Executable File
19 lines
436 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"
|
|
);
|