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;
 | 
					      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(@nameComponents) = split(/\s*-\s*/, $name);
 | 
				
			||||||
  my(@searchTerms);
 | 
					  my(@searchTerms);
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Loading…
	
	Add table
		
		Reference in a new issue