mail-uplift skip .new files
authorTony Finch <dot@dotat.at>
Fri, 28 Nov 2014 19:39:11 +0000 (19:39 +0000)
committerTony Finch <dot@dotat.at>
Fri, 28 Nov 2014 19:39:11 +0000 (19:39 +0000)
ipreg-mail-uplift

index 0dd8cb7..ac1289f 100755 (executable)
@@ -10,6 +10,7 @@ sub shit  { die "ipreg-mail-uplift: @_\n"; }
 
 for my $f (<ipreg-mail/Institutions/*>) {
   next unless -f $f;
+  next if $f =~ m{\.new$};
   print "processing $f\n";
   open my $in, '<', $f
     or shite "open < $f";