Removing duplicate syspref

[koha.git] / misc / sax_parser_print.pl

diff --git a/misc/sax_parser_print.pl b/misc/sax_parser_print.pl
index 9b84f9d..bdbd6b2 100755 (executable)
--- a/misc/sax_parser_print.pl
+++ b/misc/sax_parser_print.pl
@@ -1,6 +1,14 @@
 #!/usr/bin/perl
 # check the current SAX Parser
-use XML::SAX::ParserFactory;
-$parser = XML::SAX::ParserFactory->parser();
-print "$parser\n";
 
+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 INSTALL.* documentation.\n");