Ignore place of birth when just a comma

Author: nigelhorne

gedcom

@@ -2237,7 +2237,7 @@ sub print_person
 			complain({ person => $person, warning => "Comma missing before USA in birth location '$placeofbirth'" });
 			$placeofbirth = "$1, USA";
 			$birth_country = 'United States';
-		} elsif($placeofbirth =~ /.+,\s?(.+)$/) {
+		} elsif(($placeofbirth !~ /^\s+,\s+$/) && ($placeofbirth =~ /.+,\s?(.+)$/)) {
 			my $c = $1;
 
 			if($c =~ /\s+$/) {