Index: trunk/Nebulous/bin/neb-cull
===================================================================
--- trunk/Nebulous/bin/neb-cull	(revision 25121)
+++ trunk/Nebulous/bin/neb-cull	(revision 30236)
@@ -17,5 +17,5 @@
 
 my ($min_copies, $server, $volume, $one_only);
-
+my ($soft_volume);
 $server = $ENV{'NEB_SERVER'} unless $server;
 
@@ -25,4 +25,5 @@
     'volume|v=s'    => \$volume,
     'one_only|o'    => \$one_only,
+    'soft_volume'   => \$soft_volume,
 ) || pod2usage( 2 );
 
@@ -42,4 +43,10 @@
     unless defined $neb;
 
+if ($volume) {
+    unless (($soft_volume)) {
+	$volume = '~' . $volume;
+    }
+}
+
 $volume ||= "any";
 $min_copies ||= 2;
@@ -48,4 +55,8 @@
 push @cull_args, $key;
 push @cull_args, $volume;
+
+# print "$key $volume\n";
+# print "@cull_args\n";
+
 
 if ($one_only) {
@@ -95,4 +106,11 @@
 
 Symbolic name of the volume to create the new instance on.
+
+Optional.
+
+=item * --soft_volume
+
+Treat the specified volume name as soft, and allow an instance to be culled 
+from another volume if the specified volume does not have an instance.
 
 Optional.