From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 16 Jun 2001 17:50:43 +0000 (+0000)
Subject: Initialization is nice.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=63b097aac4bf2c02bfcc6ca595dd152a6cf7c747;p=p5sagit%2Fp5-mst-13.2.git

Initialization is nice.

p4raw-id: //depot/perl@10635
---

diff --git a/lib/Test/Harness.pm b/lib/Test/Harness.pm
index 5444a40..8966ca6 100644
--- a/lib/Test/Harness.pm
+++ b/lib/Test/Harness.pm
@@ -395,7 +395,7 @@ sub _run_all_tests {
     my @dir_files = _globdir $Files_In_Dir if defined $Files_In_Dir;
     my $t_start = new Benchmark;
 
-    my $maxlen;
+    my $maxlen = 0;
     foreach (@tests) {
 	my $len = length;
 	$maxlen = $len if $len > $maxlen;