From: Mike Taylor <mike@indexdata.com>
Date: Fri, 2 Feb 2007 11:30:50 +0000 (+0000)
Subject: Fix what I assume were out-of-date API calls.
X-Git-Tag: CPAN-v1.02~54^2~580
X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=commitdiff_plain;h=901abd9d52c810611d93691fe969479dd0f91ee4

Fix what I assume were out-of-date API calls.
Debugging output now only generated if -d specified.
---

diff --git a/bin/xslt_process.pl b/bin/xslt_process.pl
index 557ee91..c3e246e 100755
--- a/bin/xslt_process.pl
+++ b/bin/xslt_process.pl
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 
-# $Id: xslt_process.pl,v 1.2 2007-01-24 09:28:02 mike Exp $
+# $Id: xslt_process.pl,v 1.3 2007-02-02 11:30:50 mike Exp $
 
 use strict;
 use warnings;
@@ -9,13 +9,16 @@ use Getopt::Std;
 use ZOOM::IRSpy;
 use XML::LibXSLT;
 
-XML::LibXSLT->debug_callback(\&xslt_debug);
+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");
-my $source_doc = $spy->libxml->parse_file($source_file);
-my $results = $spy->irspy_to_zeerex_style->transform($source_doc);
+my $source_doc = $spy->{libxml}->parse_file($source_file);
+my $results = $spy->{irspy_to_zeerex_style}->transform($source_doc);
 
 print $results->toString(), "\n\n";