Remove Encode::Tcl::Extended, suggested by
[p5sagit/p5-mst-13.2.git] / perlyline.pl
1 $line = 1;
2 while (<>)
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  }