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:
parent
b48b6b3945
commit
81b6fcefc1
1 changed files with 6 additions and 1 deletions
|
@ -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);
|
||||
|
|
Loading…
Reference in a new issue