===================================================================
RCS file: /cvs/pta/pta_import.pl,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -p -r1.6 -r1.7
--- pta/pta_import.pl	2020/11/10 17:25:58	1.6
+++ pta/pta_import.pl	2020/11/10 17:30:31	1.7
@@ -22,7 +22,7 @@ use strict;
 sub parse_import_file ($) {
 	my $fn = shift;
 	my (@compiled, %bookings, %accounts, $import_type);
-	my $csv_account = "";
+	my $csv_account;
 	if ($fn eq "import_chase_credit.txt") {
 		$import_type = "chase_credit";
 	} elsif ($fn eq "import_capital_one_credit.txt") { 
@@ -50,7 +50,7 @@ sub parse_import_file ($) {
 		$accounts{$reg} = $account;
 	}
 	close $in;
-	die "CSV account not defined in $fn" if ($csv_account eq "");
+	$csv_account or die "CSV account not defined in $fn";
 	return (\%bookings, \%accounts, \@compiled, $csv_account, $import_type);
 }