X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=blobdiff_plain;f=lib%2FZOOM%2FIRSpy.pm;h=b5bc04a53775784edb3ae13cde4a7a8a3718dcb8;hp=d7ed4d6275d0691052c505df64fad6f1d78b6816;hb=ade7734990df0a9d42d6ef6729e5ff5c9e1307a3;hpb=5cebce9ecb1a4d1921d1d53acb0d83fc218a2a76 diff --git a/lib/ZOOM/IRSpy.pm b/lib/ZOOM/IRSpy.pm index d7ed4d6..b5bc04a 100644 --- a/lib/ZOOM/IRSpy.pm +++ b/lib/ZOOM/IRSpy.pm @@ -1,4 +1,4 @@ -# $Id: IRSpy.pm,v 1.12 2006-07-25 15:18:03 mike Exp $ +# $Id: IRSpy.pm,v 1.13 2006-07-25 16:50:49 mike Exp $ package ZOOM::IRSpy; @@ -198,6 +198,7 @@ sub check { my $res = $this->_run_test("Main"); foreach my $target (sort keys %{ $this->{target2record} }) { my $rec = $this->{target2record}->{$target}; + # It's a shame that LibXML can't pretty-print this print STDERR "$target: zeerex='", $rec->{zeerex}, "' = \n", $rec->{zeerex}->toString(), "\n"; ### Write record back to database, if modified.