From b28a3e2fedcd43d72cd164b0953b4589b8566678 Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Thu, 8 Mar 2007 14:51:01 +0000 Subject: [PATCH] More robustness against $rs->record() failure. --- lib/ZOOM/IRSpy/Test/ResultSet/Named.pm | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/lib/ZOOM/IRSpy/Test/ResultSet/Named.pm b/lib/ZOOM/IRSpy/Test/ResultSet/Named.pm index 8bc7625..61596ae 100644 --- a/lib/ZOOM/IRSpy/Test/ResultSet/Named.pm +++ b/lib/ZOOM/IRSpy/Test/ResultSet/Named.pm @@ -1,4 +1,4 @@ -# $Id: Named.pm,v 1.3 2007-03-05 12:53:57 mike Exp $ +# $Id: Named.pm,v 1.4 2007-03-08 14:51:01 mike Exp $ # See the "Main" test package for documentation @@ -65,7 +65,12 @@ sub completed_search_b { if ($test_args->{'hits_a'} > 0) { my $hits = $rs->size(); - my $record = $rs->record(0)->raw(); + my $rsrec = $rs->record(0); + if (!defined $rsrec) { + eval { $conn->check() }; + return error($conn, $task, $test_args, $@); + } + my $record = $rsrec->raw(); if ($hits != $test_args->{'hits_a'}) { $conn->log('irspy_test', 'Named result set not supported: ', -- 1.7.10.4