Changeset 17658

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).

Location:

trunk/Nebulous

Files:

• Changes (modified) (1 diff)
• bin/neb-touch (modified) (2 diffs)
• lib/Nebulous/Client.pm (modified) (2 diffs)

trunk/Nebulous/Changes

@@ -2 +2 @@
 
 0.09
+    - in Nebulous::Client->stat(), handle the SOAP quirk of thinking an "undef"
+      return is a fault (even when no fault code is set).
     - add ->setxattr_object(), ->getxattr_object(), ->listxattr_object(),
       ->removexattr_object()

trunk/Nebulous/bin/neb-touch

@@ -3 +3 @@
 # Copyright (C) 2007-2008  Joshua Hoblitt
 #
-# $Id: neb-touch,v 1.8 2008-05-13 00:09:06 jhoblitt Exp $
+# $Id: neb-touch,v 1.9 2008-05-13 23:05:48 jhoblitt Exp $
 
 use strict;
@@ -11 +11 @@
 $VERSION = '0.01';
 
+use SOAP::Lite trace => 'debug';
 use Nebulous::Client;
 

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" );