X-Git-Url: http://lists.indexdata.com/cgi-bin?a=blobdiff_plain;f=perl%2Ft%2F06_retrieval.t;h=9ddec71a60db3fd7f5c3ec6780a39ea9b779348f;hb=b9eea3a2ebd3feae59bc8c01a70dbe8b9e0b807a;hp=152c8c345c83a56e20b8bc2b5f39797aee6ab542;hpb=619b7a25eae7bffe31395d103d8eb4c5d0a84581;p=idzebra-moved-to-github.git

diff --git a/perl/t/06_retrieval.t b/perl/t/06_retrieval.t
index 152c8c3..9ddec71 100644
--- a/perl/t/06_retrieval.t
+++ b/perl/t/06_retrieval.t
@@ -1,6 +1,6 @@
 #!perl
 # =============================================================================
-# $Id: 06_retrieval.t,v 1.3 2003-03-04 19:33:53 pop Exp $
+# $Id: 06_retrieval.t,v 1.4 2003-03-04 23:32:55 pop Exp $
 #
 # Perl API header
 # =============================================================================
@@ -66,9 +66,6 @@ ok (($rec1->{score}), "score: $rec1->{score}");
 ok (($rec1->{format} eq 'SUTRS'), "format: $rec1->{format}");
 ok ((length($rec1->{buf}) > 0), "buf: ". length($rec1->{buf})." bytes");
 
-
-#$rs1 = undef;
-
 # ----------------------------------------------------------------------------
 # Close session, check for rs availability