Fix uninitialized variable

nigelhorne · Jan 21, 2025 · 835f564 · 835f564
1 parent 3ec0704
commit 835f564
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/lib/Geo/Coder/Free.pm b/lib/Geo/Coder/Free.pm
@@ -281,7 +281,7 @@ sub geocode {
 							} elsif(ref($match) eq 'ARRAY') {
 								warn __PACKAGE__, ': TODO: handle array: ', Data::Dumper->new([$match])->Dump();
 							} else {
-								die __PACKAGE__, ': TODO: handle ', ref($match), ': ', Data::Dumper->new([$match])->Dump();
+								warn __PACKAGE__, ': TODO: handle ', ref($match), ': ', Data::Dumper->new([$match])->Dump();
 							}
 						}
 						$self->{'scantext'}->{$key} = \@matches;

diff --git a/lib/Geo/Coder/Free/MaxMind.pm b/lib/Geo/Coder/Free/MaxMind.pm
@@ -594,6 +594,7 @@ sub geocode {
 	# ::diag(__LINE__, ': ', Data::Dumper->new([$city])->Dump());
 	if(defined($city) && defined($city->{'Latitude'})) {
 		# Cache and return result
+		delete $city->{'Region'} if(defined($city->{'Region'}) && ($city->{'Region'} =~ /^[A-Z]\d$/));	# E.g. Region = G5
 		my $rc = Geo::Location::Point->new({
 			%{$city},
 			('database' => 'MaxMind', 'confidence' => $confidence)