\" comments weren't recognized in column 0.

This commit is contained in:
Markus Armbruster 2004-02-28 17:32:30 +00:00
parent b0bd4e90ac
commit 966d3e7820

View file

@ -13,7 +13,7 @@ print "<head>\n";
line: while (<>) { line: while (<>) {
chomp; # strip record separator chomp; # strip record separator
s/([^\\](\\\\)*)\\\".*/$1/g; # strip comments s/((^|[^\\])(\\\\)*)\\\".*/$1/g; # strip comments
@a = req($_); @a = req($_);
if (!@a) { if (!@a) {