From: Dave Mitchell <davem@fdisolutions.com>
Date: Fri, 19 May 2006 00:14:15 +0000 (+0000)
Subject: [perl #39141] lots of warnings with diagnostics and (warn or die)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=18d238e4a14a835312fdd656a58d80d51ab487e2;p=p5sagit%2Fp5-mst-13.2.git

[perl #39141] lots of warnings with diagnostics and (warn or die)
stop C<use diagnostics; warn "\n">  outputing lots of 'uninit'
warnings.

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

diff --git a/lib/diagnostics.pm b/lib/diagnostics.pm
index 11f0aad..e81581b 100755
--- a/lib/diagnostics.pm
+++ b/lib/diagnostics.pm
@@ -562,6 +562,7 @@ sub splainthis {
     # but be aware of messsages containing " at this-or-that"
     my $real = 0;
     my @secs = split( / at / );
+    return unless @secs;
     $_ = $secs[0];
     for my $i ( 1..$#secs ){
         if( $secs[$i] =~ /.+? (?:line|chunk) \d+/ ){