projects
/
p5sagit/p5-mst-13.2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
- Restore two Text::Balanced tests, more comprehensive in bleadperl than
[p5sagit/p5-mst-13.2.git]
/
lib
/
diagnostics.pm
diff --git
a/lib/diagnostics.pm
b/lib/diagnostics.pm
index
11f0aad
..
e81581b
100755
(executable)
--- 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+/ ){