From 57306872c5cb53c26c2c14a431f19733e4b6c6e1 Mon Sep 17 00:00:00 2001 From: "Anders S. Mortensen" Date: Fri, 2 Feb 2007 12:40:51 +0000 Subject: [PATCH] Applied Mike's nice -d option thing. --- bin/irspy_xsltproc.pl | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/bin/irspy_xsltproc.pl b/bin/irspy_xsltproc.pl index 6de21da..e2cf45d 100755 --- a/bin/irspy_xsltproc.pl +++ b/bin/irspy_xsltproc.pl @@ -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"); -- 1.7.10.4