happen. But it did, and broke a looong run.)
_/|_ ___________________________________________________________________
/o ) \/ Mike Taylor <mike@indexdata.com> http://www.miketaylor.org.uk
)_v__/\ He's right you know -- the lad's got a point!
-# $Id: Fetch.pm,v 1.25 2007-02-23 15:03:44 mike Exp $
+# $Id: Fetch.pm,v 1.26 2007-02-24 01:27:20 mike Exp $
# See the "Main" test package for documentation
my $record = _fetch_record($rs, 0, $syn);
my $ok = 0;
- if ($record->error()) {
+ if (!$record || $record->error()) {
$conn->log("irspy_test", "retrieval of $syn record failed: ",
- $record->exception());
+ defined $record ? $record->exception() : "???");
} else {
$ok = 1;
my $text = $record->render();