bin/ovh-api

diff --git a/bin/ovh-api b/bin/ovh-api
index cb4028d2d39a1c453af3908782a8f94c36b370fb..b5522f18a567ed60f6239cf69f317d6ab6025187 100755 (executable)
--- 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;