X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Fdiagnostics.pm;h=e81581b00733a0762d266d7142907286b482b076;hb=aa10195b3aa19bb4f167204cdce8fb75d361ccb8;hp=11f0aadc3005180cd3a44d1a93b346ab9b1e64e8;hpb=b4e8c6dd0853d6a1de629186530fac6405389283;p=p5sagit%2Fp5-mst-13.2.git

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+/ ){