blob: f360fb41ef143580082681f7c6cdcff1edccd071 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
$line = 1;
while (<>)
{
$line++;
# 1st correct #line directives for perly.c itself
s/^(#line\s+)\d+(\s*"perly\.c"\s*)$/$1$line$2/;
# now add () round things gcc dislikes
s/if \(yyn = yydefred\[yystate\]\)/if ((yyn = yydefred[yystate]))/;
s/if \(yys = getenv\("YYDEBUG"\)\)/if ((yys = getenv("YYDEBUG")))/;
print;
}
|
