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

diff --git a/bin/test-net-z3950-zoom.pl b/bin/test-net-z3950-zoom.pl
index 03033d1..fc5f4f4 100644
--- a/bin/test-net-z3950-zoom.pl
+++ b/bin/test-net-z3950-zoom.pl
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 
-# $Id: test-net-z3950-zoom.pl,v 1.1 2006-07-19 11:41:05 mike Exp $
+# $Id: test-net-z3950-zoom.pl,v 1.2 2006-07-19 16:28:59 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 +106,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) . "'";
 }