Changeset 17765 for trunk/Nebulous/lib

Timestamp:

May 21, 2008, 3:39:55 PM (18 years ago)

Author:

jhoblitt

Message:

change replicate() to report when it fails to cleanup (after a failure)

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.53 2008-05-21 20:46:18 jhoblitt Exp $
+# $Id: Client.pm,v 1.54 2008-05-22 01:39:41 jhoblitt Exp $
 
 package Nebulous::Client;
@@ -245 +245 @@
     my $success = File::Copy::copy( $fh, $new_fh );
     unless ($success) {
-        $self->delete_instance("$uri");
+        # if the copy failed we now have a zero length instances floating
+        # around that must be removed
+        unless ($self->delete_instance("$uri")) {
+            $log->logdie( "can not copy instance $uri AND FAILED TO CLEANUP EMPTY INSTANCE" );
+        }
         $log->logdie( "can not copy instance $uri" );
     }