From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Thu, 15 Mar 2007 17:43:43 +0000 (+0000)
Subject: Patch by Abigail to avoid using $& in diagnostics.pm.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8ec7363a788490ed4796ca94a29acc1853cb263b;p=p5sagit%2Fp5-mst-13.2.git

Patch by Abigail to avoid using $& in diagnostics.pm.

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

diff --git a/lib/diagnostics.pm b/lib/diagnostics.pm
index 68253fc..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] );
                 }
             }