From 688be0c8070035d12dec697137977da341bd132f Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Mon, 5 Jul 2010 17:33:48 +0100 Subject: [PATCH] Better task-level logging. --- lib/ZOOM/IRSpy/Task/Retrieve.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lib/ZOOM/IRSpy/Task/Retrieve.pm b/lib/ZOOM/IRSpy/Task/Retrieve.pm index 1580e94..15877bc 100644 --- a/lib/ZOOM/IRSpy/Task/Retrieve.pm +++ b/lib/ZOOM/IRSpy/Task/Retrieve.pm @@ -47,7 +47,8 @@ sub run { my $rs = $this->{rs}; my $index0 = $this->{index0}; $this->irspy()->log("irspy_task", $conn->option("host"), - " retrieving record $index0 from $rs"); + " retrieving record $index0 from $rs, rs='", + $rs->option("preferredRecordSyntax"), "'"); $rs->records($index0, 1, 0); # requests record warn "no ZOOM-C level events queued by $this" if $conn->is_idle(); -- 1.7.10.4