From: Mike Taylor <mike@miketaylor.org.uk>
Date: Mon, 5 Jul 2010 16:33:48 +0000 (+0100)
Subject: Better task-level logging.
X-Git-Tag: CPAN-v1.02~28
X-Git-Url: http://sru.miketaylor.org.uk/cgi-bin?a=commitdiff_plain;h=688be0c8070035d12dec697137977da341bd132f;p=irspy-moved-to-github.git

Better task-level logging.
---

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();