summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xdeefine.pl5
1 files changed, 3 insertions, 2 deletions
diff --git a/deefine.pl b/deefine.pl
index 5c9be21..5a0007a 100755
--- a/deefine.pl
+++ b/deefine.pl
@@ -20,14 +20,15 @@ my $WORD = shift or die "Usage: $0 <word>\n";
my $ua = LWP::UserAgent->new;
$ua->agent("gramos's script for perlweeklychallenge.org");
-my $uri = "https://wordsapiv1.p.mashape.com/words/$WORD";
+my $uri = "https://wordsapiv1.p.rapidapi.com/words/$WORD";
my @headers = ("X-Mashape-Key", $WORDSAPI_KEY);
my $response = $ua->request(HTTP::Request->new("GET", $uri, \@headers));
# Check for errors in API request
if ($response->is_error()) {
if ($response->code == 404) {
- die "Word '$WORD' not found\n";
+ printf "Sorry, word '$WORD' not found\n";
+ exit;
} else {
die "Unknown error: " . $response->message;
}