Changeset 20988 for trunk/Nebulous/lib

Timestamp:

Dec 14, 2008, 12:48:35 PM (18 years ago)

Author:

eugene

Message:

revert to non-distributed version

File:

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

trunk/Nebulous/lib/Nebulous/Client.pm

@@ -1 +1 @@
 # Copyright (c) 2004-2008  Joshua Hoblitt
 #
-# $Id: Client.pm,v 1.63 2008-12-12 21:13:41 jhoblitt Exp $
+# $Id: Client.pm,v 1.64 2008-12-14 22:48:35 eugene Exp $
 
 package Nebulous::Client;
@@ -243 +243 @@
         # if the copy failed we now have a zero length instances floating
         # around that must be removed
-        unless ($self->delete_instance($key, "$uri")) {
+        unless ($self->delete_instance("$uri")) {
             $log->logdie( "can not copy instance $uri AND FAILED TO CLEANUP EMPTY INSTANCE" );
         }
@@ -256 +256 @@
 
     unless ($src_md5 eq $dst_md5) {
-        $self->delete_instance($key, "$uri");
+        $self->delete_instance("$uri");
         $log->logdie( "md5sum mismatch" );
     }
@@ -327 +327 @@
     }
 
-    my $uri = $self->delete_instance($key, @$locations[0]);
+    my $uri = $self->delete_instance( @$locations[0] );
 
     $log->debug("leaving");
@@ -813 +813 @@
     # a lock is implicitly removed when the last storage object is deleted
     foreach my $uri ( @$locations ) {
-        $self->delete_instance($key, $uri) or return undef;
+        $self->delete_instance( $uri ) or return undef;
     }
 
@@ -944 +944 @@
     my $self = shift;
 
-    my ($key, $uri) = validate_pos(@_,
-        {
-            type => SCALAR,
-        },
+    my ($uri) = validate_pos(@_,
         {
             type => SCALAR,
@@ -964 +961 @@
     $log->logdie( $@ ) if $@;
 
-    my $response = $self->{ 'server' }->delete_instance($key, $uri);
+    my $response = $self->{ 'server' }->delete_instance( $uri );
     if ( $response->fault ) {
         $self->set_err($response->faultstring);