From: Devops <sys@15gifts.com>
Date: Mon, 29 May 2017 00:51:57 +0000 (+0100)
Subject: bin/ovh-api
X-Git-Url: https://git.nbdom.net/?a=commitdiff_plain;h=ff02676717acf9e0d7191f8664acc85035917655;p=nb.git

bin/ovh-api
---

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;