From e6f3fb9591844659bb7e6ccf909ec53cf6b7116a Mon Sep 17 00:00:00 2001
From: Joe Atzberger <joe.atzberger@liblime.com>
Date: Tue, 10 Feb 2009 14:16:31 -0600
Subject: [PATCH] Make sax_parser_print provide more obvious feedback.

Signed-off-by: Galen Charlton <galen.charlton@liblime.com>
---
 misc/sax_parser_print.pl | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/misc/sax_parser_print.pl b/misc/sax_parser_print.pl
index 9b84f9db27..97c0ab5658 100755
--- 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");
-- 
2.39.5