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

diff --git a/bin/test-net-z3950-zoom.pl b/bin/test-net-z3950-zoom.pl
index 03033d1..9a747d0 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 $
+#!/usr/bin/perl
 #
 # 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) . "'";
 }