Index: /trunk/Nebulous-Server/Changes
===================================================================
--- /trunk/Nebulous-Server/Changes	(revision 13071)
+++ /trunk/Nebulous-Server/Changes	(revision 13072)
@@ -2,4 +2,5 @@
 
 0.05
+    - change Nebulous::Client->move() to use ->rename_object()
     - add Nebulous::Server->rename_object()
     - add neb-rm
Index: /trunk/Nebulous/Changes
===================================================================
--- /trunk/Nebulous/Changes	(revision 13071)
+++ /trunk/Nebulous/Changes	(revision 13072)
@@ -2,4 +2,5 @@
 
 0.05
+    - change Nebulous::Client->move() to use ->rename_object()
     - add Nebulous::Server->rename_object()
     - add neb-rm
Index: /trunk/Nebulous/lib/Nebulous/Client.pm
===================================================================
--- /trunk/Nebulous/lib/Nebulous/Client.pm	(revision 13071)
+++ /trunk/Nebulous/lib/Nebulous/Client.pm	(revision 13072)
@@ -1,5 +1,5 @@
 # Copyright (c) 2004  Joshua Hoblitt
 #
-# $Id: Client.pm,v 1.27 2007-04-27 23:50:57 jhoblitt Exp $
+# $Id: Client.pm,v 1.28 2007-04-28 01:15:38 jhoblitt Exp $
 
 package Nebulous::Client;
@@ -644,13 +644,7 @@
     $log->debug( "entered - @_" );
 
-    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" );
+    my $response = $self->{ 'server' }->rename_object( $key, $new_key );
+    if ( $response->fault ) {
+        $log->error( $response->faultcode, " - ", $response->faultstring );
         $log->debug( "leaving" );