From de102bba2f8ef10e6861e5d5a7b2385be73ccc69 Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Wed, 9 May 2007 12:05:04 +0000 Subject: [PATCH] Use connection-level diagnostic if there is no record. --- lib/ZOOM/IRSpy/Test/Record/Fetch.pm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lib/ZOOM/IRSpy/Test/Record/Fetch.pm b/lib/ZOOM/IRSpy/Test/Record/Fetch.pm index 0569245..86ae65a 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.28 2007-05-01 16:31:08 mike Exp $ +# $Id: Fetch.pm,v 1.29 2007-05-09 12:05:04 mike Exp $ # See the "Main" test package for documentation @@ -101,7 +101,8 @@ sub record { my $ok = 0; if (!$record || $record->error()) { $conn->log("irspy_test", "retrieval of $syn record failed: ", - defined $record ? $record->exception() : "???"); + defined $record ? $record->exception() : + $conn->exception()); } else { $ok = 1; my $text = $record->render(); -- 1.7.10.4