diff options
Diffstat (limited to 'lib/diagnostics.pm')
| -rw-r--r-- | lib/diagnostics.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/diagnostics.pm b/lib/diagnostics.pm index 39bcb3d1dd..21cdf543b7 100644 --- a/lib/diagnostics.pm +++ b/lib/diagnostics.pm @@ -186,7 +186,7 @@ use 5.009001; use Carp; $Carp::Internal{__PACKAGE__.""}++; -our $VERSION = '1.28'; +our $VERSION = '1.29'; our $DEBUG; our $VERBOSE; our $PRETTY; @@ -435,11 +435,11 @@ my %msg; } my $lhs = join( '', @toks ); $transfmt{$header}{pat} = - " s{^$lhs}\n {\Q$header\E}s\n\t&& return 1;\n"; + " s^$lhs\Q$header\Es\n\t&& return 1;\n"; $transfmt{$header}{len} = $conlen; } else { $transfmt{$header}{pat} = - " m{^\Q$header\E} && return 1;\n"; + " m^\Q$header\E && return 1;\n"; $transfmt{$header}{len} = length( $header ); } |