Make sax_parser_print provide more obvious feedback.

Signed-off-by: Galen Charlton <galen.charlton@liblime.com>

diff --git a/misc/sax_parser_print.pl b/misc/sax_parser_print.pl
index 9b84f9d..97c0ab5 100755 (executable)
--- a/misc/sax_parser_print.pl
+++ b/misc/sax_parser_print.pl
@@ -2,5 +2,10 @@
 # check the current SAX Parser
 use XML::SAX::ParserFactory;
 $parser = XML::SAX::ParserFactory->parser();
-print "$parser\n";
-
+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");