From: Mike Taylor <mike@indexdata.com>
Date: Wed, 19 Jul 2006 16:28:59 +0000 (+0000)
Subject: FIx harmless uninitialised-value warning.
X-Git-Tag: CPAN-v1.02~54^2~1124
X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=commitdiff_plain;h=9da0b16550ada7ae105e51a5e956076762ae51ef

FIx harmless uninitialised-value warning.
---

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) . "'";
 }