$VERSION "a5" doesn't quite work.
[p5sagit/p5-mst-13.2.git] / perlyline.pl
CommitLineData
f4db5405 1$line = 1;
2while (<>)
3 {
4 $line++;
5 # 1st correct #line directives for perly.c itself
6 s/^(#line\s+)\d+(\s*"perly\.c"\s*)$/$1$line$2/;
7 # now add () round things gcc dislikes
8 s/if \(yyn = yydefred\[yystate\]\)/if ((yyn = yydefred[yystate]))/;
9 s/if \(yys = getenv\("YYDEBUG"\)\)/if ((yys = getenv("YYDEBUG")))/;
10 print;
11 }