Applied Mike's nice -d option thing.
authorAnders S. Mortensen <sondberg@indexdata.dk>
Fri, 2 Feb 2007 12:40:51 +0000 (12:40 +0000)
committerAnders S. Mortensen <sondberg@indexdata.dk>
Fri, 2 Feb 2007 12:40:51 +0000 (12:40 +0000)
bin/irspy_xsltproc.pl

index 6de21da..e2cf45d 100755 (executable)
@@ -1,12 +1,17 @@
 #!/usr/bin/perl -w
 
-# $Id: irspy_xsltproc.pl,v 1.1 2007-02-02 12:38:48 sondberg Exp $
+# $Id: irspy_xsltproc.pl,v 1.2 2007-02-02 12:40:51 sondberg Exp $
 
 use strict;
 use warnings;
 use lib '../lib';
 use ZOOM::IRSpy;
 
+if (@ARGV && $ARGV[0] eq "-d") {
+    shift;
+    XML::LibXSLT->debug_callback(\&xslt_debug);
+}
+
 my $dbname = 'localhost:8018/IR-Explain---1';
 my $spy = new ZOOM::IRSpy($dbname, "admin", "fruitbat");
 my $source_file = shift || die("$0: Please specify xml instance file");