From ff02676717acf9e0d7191f8664acc85035917655 Mon Sep 17 00:00:00 2001 From: Devops Date: Mon, 29 May 2017 01:51:57 +0100 Subject: [PATCH] bin/ovh-api --- bin/ovh-api | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/bin/ovh-api b/bin/ovh-api index cb4028d2..b5522f18 100755 --- a/bin/ovh-api +++ b/bin/ovh-api @@ -107,10 +107,10 @@ sub _query { eval { $response = $Api->rawCall(path=>$url,method=>($method||'GET'),body=>$body); }; - die "$NAME: Connection failed" unless $response; + die "$NAME: Connection failed" unless ref $response eq 'OvhApi::Answer'; if ($response->isFailure()) { die "$NAME: ERR: Connection failed" if $response->error() =~ /Internal Server Error/; - die "$NAME: ERR: ".$response->error(); + die "$NAME: ERR: ".$response->error()."\n"; } my $content = $response->content; @@ -130,9 +130,9 @@ sub _query { $response = $Api->rawCall(path=>$url.'/'.$id,method=>($method||'GET'),body=>{}); }; - die "$NAME: Query failed" unless $response; - die "$NAME: ERR: Connection failed" if $response->error() =~ /Internal Server Error/; - die "$NAME: ERR: ".$response->error() if $response->isFailure(); + die "$NAME: Query failed" unless ref $response eq 'OvhApi::Answer'; + die "$NAME: ERR: Query failed" if $response->error() =~ /Internal Server Error/; + die "$NAME: ERR: ".$response->error()."\n" if $response->isFailure(); push @rows, $response->content; -- 2.47.3