From 7117d9b5950da43e3539b3f09b2fa3cbe93be138 Mon Sep 17 00:00:00 2001 From: Wolfram Schneider Date: Thu, 8 Apr 2010 15:14:04 +0000 Subject: [PATCH] add debuging option --- bin/irspy.pl | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/bin/irspy.pl b/bin/irspy.pl index 4e24088..963c1b5 100755 --- a/bin/irspy.pl +++ b/bin/irspy.pl @@ -32,9 +32,10 @@ $SIG{__DIE__} = sub { }; my %opts; -if (!getopts('wt:af:n:m:M:', \%opts) || @ARGV < 1) { +if (!getopts('dwt:af:n:m:M:', \%opts) || @ARGV < 1) { print STDERR "\ Usage $0: [options] [ ...] + -d debug -w Use ZOOM::IRSpy::Web subclass -t Run the specified [default: all tests] -a Test all targets (slow!) @@ -52,7 +53,11 @@ $class .= "::Web" if $opts{w}; if ($opts{M} && $opts{M} > 0) { no warnings; - $class::xslt_max_depth = $opts{M} + $ZOOM::IRSpy::xslt_max_depth = $opts{M}; +} +if ($opts{d}) { + no warnings; + $ZOOM::IRSpy::debug = $opts{d}; } my $spy = $class->new($dbname, "admin", "fruitbat", $opts{n}); -- 1.7.10.4