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");