===================================================================
RCS file: /cvs/pta/pta_import.pl,v
retrieving revision 1.32
retrieving revision 1.33
diff -u -p -r1.32 -r1.33
--- pta/pta_import.pl	2021/06/04 13:50:06	1.32
+++ pta/pta_import.pl	2021/06/04 14:47:20	1.33
@@ -175,8 +175,9 @@ LINE: while (<STDIN>) {
 		}
 	}
 	$matches or die "unmatched CSV line: $line";
-	my $date = $fields[$date_field] or
-	    die "date parse error: $line";
+	my $date = $fields[$date_field];
+	defined $date or die "undefined date: $line";
+	$date or die "date ($date) parse error: $line";
 	eval '$date =~ ' . $date_regex;
 	foreach my $i (@amount_fields) {
 		if (defined($fields[$i])) {