tools/find-missing.pl

   1 use strict;
   2 use warnings;
   3 use Smart::Comments;
   4 use lib 'tools';
   5 require 'utils.pl';
   6
   7 sub main {
   8     while (defined(my $rel = <>)) {
   9         chomp $rel;
  10         my $saved = rel2saved($rel);
  11
  12         if (!-e $saved) {
  13             print "? $rel\n";
  14         }
  15     }
  16 }
  17
  18 main();