From e7234d1843e9ba4e860027ba4493ec463d60afd3 Mon Sep 17 00:00:00 2001 From: mike Date: Thu, 24 Nov 2005 15:39:20 +0000 Subject: [PATCH] Comment. --- lib/ZOOM.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lib/ZOOM.pm b/lib/ZOOM.pm index 6268675..faea6b3 100644 --- a/lib/ZOOM.pm +++ b/lib/ZOOM.pm @@ -1,4 +1,4 @@ -# $Id: ZOOM.pm,v 1.20 2005-11-16 17:26:23 mike Exp $ +# $Id: ZOOM.pm,v 1.21 2005-11-24 15:39:20 mike Exp $ use strict; use warnings; @@ -577,6 +577,7 @@ sub record_immediate { my $_rec = Net::Z3950::ZOOM::resultset_record_immediate($this->_rs(), $which); $this->{conn}->_check(); + # The record might legitimately not be there yet return undef if !defined $_rec; return ZOOM::Record->_new($this, $which, $_rec); -- 1.7.10.4