X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=lib%2FZOOM%2FIRSpy.pm;h=b5bc04a53775784edb3ae13cde4a7a8a3718dcb8;hb=661599a46cdb96d9f5f3cf4b8a22f1eb4048cc25;hp=d7ed4d6275d0691052c505df64fad6f1d78b6816;hpb=88b66b977588fbc8fe4b7562a72136662d7aae15;p=irspy-moved-to-github.git 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.