[bpt/coccinelle.git] / scripts / gather_failed.pl

#!/usr/bin/perl 

# usage: gather_failed.pl **/*.failed > /tmp/big.failed

print "-*- mode: outline; -*-\n";

map {
  print "* FAILED FILE: $_\n";
  print "\n";
  system("cat $_");

} @ARGV;
Commit	Line	Data
34e49164 C	1	#!/usr/bin/perl
	2
	3	# usage: gather_failed.pl */.failed > /tmp/big.failed
	4
	5	print "-- mode: outline; --\n";
	6
	7	map {
	8	print "* FAILED FILE: $_\n";
	9	print "\n";
	10	system("cat $_");
	11
	12	} @ARGV;