From 9da0b16550ada7ae105e51a5e956076762ae51ef Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Wed, 19 Jul 2006 16:28:59 +0000 Subject: [PATCH] FIx harmless uninitialised-value warning. --- bin/test-net-z3950-zoom.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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) . "'"; } -- 1.7.10.4