Changeset 17658 for trunk/Nebulous/lib

Timestamp:

May 13, 2008, 1:05:48 PM (18 years ago)

Author:

jhoblitt

Message:

in Nebulous::Client->stat(), handle the SOAP quirk of thinking an "undef" return is a fault (even when no fault code is set).

File:

• trunk/Nebulous/lib/Nebulous/Client.pm (modified) (2 diffs)

trunk/Nebulous/lib/Nebulous/Client.pm

@@ -1 +1 @@
 # Copyright (c) 2004-2008  Joshua Hoblitt
 #
-# $Id: Client.pm,v 1.47 2008-05-13 00:27:28 jhoblitt Exp $
+# $Id: Client.pm,v 1.48 2008-05-13 23:05:48 jhoblitt Exp $
 
 package Nebulous::Client;
@@ -904 +904 @@
     my $stats = $response->result;
 
+    # SOAP can't actually send back a perl "undef" so what we get is an empty
+    # string to indicate the key doesn't exist but there is no error.
+    if ($stats eq "") {
+        $stats = undef;
+    }
+
     $log->debug( "leaving" );