From: mike <mike>
Date: Thu, 24 Nov 2005 15:39:20 +0000 (+0000)
Subject: Comment.
X-Git-Tag: cpan_1_22~344
X-Git-Url: http://lists.indexdata.dk/?a=commitdiff_plain;h=e7234d1843e9ba4e860027ba4493ec463d60afd3;p=ZOOM-Perl-moved-to-github.git

Comment.
---

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);