Initialization is nice.

p4raw-id: //depot/perl@10635

diff --git a/lib/Test/Harness.pm b/lib/Test/Harness.pm
index 5444a40..8966ca6 100644 (file)
--- 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;