X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Fdiagnostics.pm;h=7af5efa1778bb2974aa9aa2f00aa60c0cdc21b67;hb=031444c208a641407a9c485b4619db54f43e6b7f;hp=482fe282140f5f7d333ff60934bcece1401521d3;hpb=d923656e4b61a7a7e564dd4edbad177cdcd7f475;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/diagnostics.pm b/lib/diagnostics.pm
index 482fe28..7af5efa 100755
--- a/lib/diagnostics.pm
+++ b/lib/diagnostics.pm
@@ -394,7 +394,7 @@ my %msg;
                         $toks[$i] = '[\da-f]+';
                    }
                 } elsif( length( $toks[$i] ) ){
-                    $toks[$i] =~ s/^.*$/\Q$&\E/;
+                    $toks[$i] = quotemeta $toks[$i];
                     $conlen += length( $toks[$i] );
                 }
             }  
@@ -549,6 +549,7 @@ sub splainthis {
     return 0 if $TRACEONLY;
     $_ = shift;
     local $\;
+    local $!;
     ### &finish_compilation unless %msg;
     s/\.?\n+$//;
     my $orig = $_;