Bug 10572: Add phone to message_transport_types table for new installs

[koha.git] / misc / sax_parser_print.pl

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