[p5sagit/p5-mst-13.2.git] / perlyline.pl

$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;
 }
Commit	Line	Data
f4db5405	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	}