Report invalid date properly as part of issue #5.

cfe-lab · Sep 15, 2014 · 77a2704 · 77a2704
1 parent 14e0039
commit 77a2704
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/modules/ExtractConanDateFromSamplesheet.pm b/modules/ExtractConanDateFromSamplesheet.pm
@@ -27,8 +27,10 @@ sub getSampleSheetDate {
 
     # Try to parse this date and check if it looks like it worked
     my $parsed_date = str2time($samplesheet_date);
-    my $year = time2str("%Y", $parsed_date);
-    if (($year < 2010) || ($year > 2020)) { next; }
+    my $year = defined $parsed_date ? time2str("%Y", $parsed_date) : undef;
+    if ( ! defined $year || ($year < 2010) || ($year > 2020)) {
+        die "Invalid date in sample sheet's project name: '$samplesheet_date'.";
+    }
     return time2str("%Y-%m-%d", $parsed_date);
 }