Quote keyword replacement for s///

This commit is contained in:
slamm%netscape.com 1999-06-25 19:49:33 +00:00
parent de9074b0d9
commit 9ecc5f22b1

View File

@ -333,7 +333,7 @@ sub print_source_code {
$line =~ s/&/&/g;
$line =~ s/</&lt;/g;
$line =~ s/>/&gt;/g;
$line =~ s|$keyword|<b>$keyword</b>|g;
$line =~ s|\Q$keyword\E|<b>$keyword</b>|g;
print "<font color='red'>" if $line_index == $linenum;
print "$line_index $line<BR>";
print "</font>" if $line_index == $linenum;