Index: /trunk/DataStore/scripts/dsget
===================================================================
--- /trunk/DataStore/scripts/dsget	(revision 19741)
+++ /trunk/DataStore/scripts/dsget	(revision 19742)
@@ -3,5 +3,5 @@
 # Copyright (C) 2006-2008  Joshua Hoblitt
 #
-# $Id: dsget,v 1.34 2008-09-23 02:27:29 jhoblitt Exp $
+# $Id: dsget,v 1.35 2008-09-24 21:58:03 jhoblitt Exp $
 
 use strict;
@@ -155,4 +155,5 @@
 # always be a rename operation instead of a copy and delete.
 
+my $neb;
 if ($nebulous) {
     require Nebulous::Client;
@@ -161,5 +162,5 @@
     import File::Copy;
 
-    my $neb = Nebulous::Client->new(
+    $neb = Nebulous::Client->new(
         proxy   => $server,
     );
@@ -199,5 +200,5 @@
     if (defined $copies and $copies > 1) {
         foreach (1 .. ($copies - 1)) {
-            $neb->replicate($filename, undef)
+            $neb->replicate($filename, 'any')
                 or die "failed to replicate $filename failed: $!";
         }
@@ -212,4 +213,8 @@
 DESTROY {
     unlink $tmpfilename if -e $tmpfilename;
+    if ($nebulous and $neb->stat($filename)) {
+        $neb->delete($filename)
+            or die "Nebulous can't delete key $filename";
+    }
 }