-# $Id: Named.pm,v 1.5 2007-03-15 11:38:53 mike Exp $
# See the "Main" test package for documentation
$error = 'hitcount';
}
- if ($record ne $test_args->{'record_a'}) {
+ if (!defined $record || $record ne $test_args->{'record_a'}) {
$conn->log('irspy_test', 'Named result set not supported: ',
'Mis-matching records');
$error = 'record';
my($conn, $task, $test_args, $exception) = @_;
$conn->log("irspy_test", "Named resultset check failed:", $exception);
+ zoom_error_timeout_update($conn, $exception);
return ZOOM::IRSpy::Status::TASK_DONE;
}