Changeset 2880

Timestamp:

Jan 3, 2005, 4:46:26 PM (22 years ago)

Author:

jhoblitt

Message:

add checks for copy & delete success in move

File:

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

trunk/Nebulous/lib/Nebulous/Client.pm

@@ -1 +1 @@
 # Copyright (c) 2004  Joshua Hoblitt
 #
-# $Id: Client.pm,v 1.6 2005-01-04 02:12:50 jhoblitt Exp $
+# $Id: Client.pm,v 1.7 2005-01-04 02:46:26 jhoblitt Exp $
 
 package PS::IPP::IData::Client;
@@ -595 +595 @@
     $log->debug( "entered - key: $key, new_key: $new_key" );
 
-    $self->copy( $key, $new_key );
-    $self->delete( $key );
+    unless ( $self->copy( $key, $new_key ) ) {
+        $log->debug( "can not copy object" );
+        $log->debug( "leaving" );
+
+        return undef;
+    }
+
+    unless ( $self->delete( $key ) ) {
+        $log->debug( "can not delete object" );
+        $log->debug( "leaving" );
+
+        return undef;
+    }
 
     $log->debug( "leaving" );