From cd8209f8424cb3538da50f3078dd2e28986fdc5c Mon Sep 17 00:00:00 2001 From: "Anders S. Mortensen" Date: Wed, 25 Oct 2006 11:44:35 +0000 Subject: [PATCH] Added some extra debugging. --- lib/ZOOM/IRSpy/Test/Record/Fetch.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lib/ZOOM/IRSpy/Test/Record/Fetch.pm b/lib/ZOOM/IRSpy/Test/Record/Fetch.pm index 487b37e..754d3fa 100644 --- a/lib/ZOOM/IRSpy/Test/Record/Fetch.pm +++ b/lib/ZOOM/IRSpy/Test/Record/Fetch.pm @@ -1,4 +1,4 @@ -# $Id: Fetch.pm,v 1.5 2006-10-25 10:47:17 mike Exp $ +# $Id: Fetch.pm,v 1.6 2006-10-25 11:44:35 sondberg Exp $ # See the "Main" test package for documentation @@ -57,6 +57,8 @@ sub record { my $rs = $task->{rs}; if (1) { + print STDERR "Hits: ", $rs->size(), "\n"; + print STDERR "Syntax: ", $syn, "\n"; print STDERR $rs->record(0)->render(); } -- 1.7.10.4