Improve handling for geoplgin.net being unavailable

nigelhorne · Sep 20, 2018 · 8c27542 · 8c27542
1 parent 8e6d265
commit 8c27542
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/lib/CGI/Lingua.pm b/lib/CGI/Lingua.pm
@@ -962,8 +962,9 @@ sub country {
 			LWP::Simple->import();
 			JSON::Parse->import();
 
-			my $data = JSON::Parse::parse_json(LWP::Simple::get("http://www.geoplugin.net/json.gp?ip=$ip"));
-			$self->{_country} = $data->{'geoplugin_countryCode'};
+			if(my $data = LWP::Simple::get("http://www.geoplugin.net/json.gp?ip=$ip")) {
+				$self->{_country} = JSON::Parse::parse_json($data)->{'geoplugin_countryCode'};
+			}
 		}
 	}
 	unless($self->{_country}) {