Merge remote-tracking branch 'kc/new/enh/bug_4877' into kcmaster
[wip/koha-chris_n.git] / misc / sax_parser_print.pl
1 #!/usr/bin/perl
2 # check the current SAX Parser
3
4 use strict;
5 use warnings;
6 use XML::SAX::ParserFactory;
7
8 my $parser = XML::SAX::ParserFactory->parser();
9 print "Koha wants something like:
10     XML::LibXML::SAX::Parser=HASH(0x81fe220)
11 You have:
12     $parser\n";
13 print "Looks " .
14     ($parser =~ /^XML::LibXML::SAX::Parser=HASH/ ?
15     "good.\n" : "bad, check INSTALL.* documentation.\n");