X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=blobdiff_plain;f=bin%2Ftest-net-z3950-zoom.pl;h=50fec50d7c1cd78363c2b3798669652b48033ea4;hp=03033d1c57ab1cfe0a0939f24e6e3da6143dece1;hb=51263462a77dba19f5913881429b92833072286f;hpb=b8419ba9c8cc3bbe2b2f3c93fc342977b58bc3b0

diff --git a/bin/test-net-z3950-zoom.pl b/bin/test-net-z3950-zoom.pl
index 03033d1..50fec50 100644
--- a/bin/test-net-z3950-zoom.pl
+++ b/bin/test-net-z3950-zoom.pl
@@ -1,6 +1,4 @@
 #!/usr/bin/perl -w
-
-# $Id: test-net-z3950-zoom.pl,v 1.1 2006-07-19 11:41:05 mike Exp $
 #
 # Run the same way as "test-pod.pl".  This is supposed to be an
 # exactly equivalent program but written using the Net::Z3950::ZOOM
@@ -106,6 +104,6 @@ sub render_record {
     my($rec) = @_;
 
     return "undefined" if !defined $rec;
-    my $len;
+    my $len = 0;
     return "'" . Net::Z3950::ZOOM::record_get($rec, "render", $len) . "'";
 }