diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-03-15 17:43:43 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-03-15 17:43:43 +0000 |
| commit | 8ec7363a788490ed4796ca94a29acc1853cb263b (patch) | |
| tree | 60ca65d7109e51329efc563084f8dee8d5df9827 /lib/diagnostics.pm | |
| parent | 240b676612359dc858a2fba0a01262d0ee466078 (diff) | |
| download | perl-8ec7363a788490ed4796ca94a29acc1853cb263b.tar.gz | |
Patch by Abigail to avoid using $& in diagnostics.pm.
p4raw-id: //depot/perl@30601
Diffstat (limited to 'lib/diagnostics.pm')
| -rwxr-xr-x | lib/diagnostics.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/diagnostics.pm b/lib/diagnostics.pm index 68253fcb35..7af5efa177 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] ); } } |