X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=lib%2FZOOM%2FIRSpy%2FTest%2FRecord%2FFetch.pm;h=754d3fa0908ad18605bd3feb33b403da1f708bb3;hb=1722445073349b59388d81952fff2334b6cbbf96;hp=487b37ecf1ccbb012f73cc1208d33f358342e62a;hpb=a87d848d6235a2b25e196c65f12746a889195268;p=irspy-moved-to-github.git 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(); }