scripts/gather_failed.pl

   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;