Don't die on any failure; just move on to next file.

I'm going to leave the files as is if I can't really validly process them at
all, so the indicator that I finished the operation is renaming the file.
This commit is contained in:
Bradley M. Kuhn 2018-07-15 09:07:54 -07:00
parent b48b6b3945
commit 81b6fcefc1

View file

@ -95,7 +95,12 @@ while (my $file = readdir $dh) {
next;
}
}
die "Inside $file there is no valid Date:" if (not defined $mentorDate);
if (not defined $mentorDate) {
print STDERR "\"$file\": Skipping: Inside that file there is no valid Date: header" ;
next;
}
# Find the ticket number for this intern.
my(@nameComponents) = split(/\s*-\s*/, $name);
my(@searchTerms);