Index: /trunk/tools/stsci_disks/p1_clear.pl
===================================================================
--- /trunk/tools/stsci_disks/p1_clear.pl	(revision 38363)
+++ /trunk/tools/stsci_disks/p1_clear.pl	(revision 38364)
@@ -92,5 +92,5 @@
     my @vols;
     my @md5sums;
-
+    my @skip;
 # Pre scan
     for (my $i = 0; $i <= $#files; $i++) {
@@ -126,4 +126,7 @@
 
 	    $md5sums[$i] = local_md5sum($f);
+	    unless (defined($md5sums[$i])) {
+		die("Failed to calculate md5sum locally. $f ");
+	    }
 	    # Get a target
 	    $vols[$i] = get_volume($keys[$i]);
@@ -133,5 +136,5 @@
 	    
 	    # Check that we actually have a key on the host we're checking.
-	    my $local_uris = $neb->find_instances($keys[$i],"~" . $host . "." . $volume);
+	    my $local_uris = $neb->find_instances($keys[$i],"~${host}.${volume}");
 	    if ($#{ $local_uris } == -1) { 
 		$vols[$i] = undef();
@@ -159,8 +162,11 @@
 # Do a replication pass
     for (my $i = 0; $i <= $#files; $i++) {
+	$skip[$i] = 0;
 	if ($belongs[$i] == 0) {
 	    if (defined($vols[$i])) {
-		$neb->replicate($keys[$i],$vols[$i]) or die "failed to replicate a copy to the backup node";
-		if ($@) { die $@; }
+		unless ($neb->replicate($keys[$i],$vols[$i])) {
+		    $skip[$i] = 1;
+		}
+#		if ($@) { die $@; }
 	    }
 	    else {
@@ -180,4 +186,5 @@
 # Do the check pass
     for (my $i = 0; $i <= $#files; $i++) {
+	if ($skip[$i] == 1) { next; }
 	my $uri;
 	if ($belongs[$i] == 0) {
@@ -193,4 +200,7 @@
 
 	    my $tmpmd5 = local_md5sum($uri);
+	    unless (defined($tmpmd5)) { 
+		next; 
+	    }
 	    if ($tmpmd5 ne $md5sums[$i]) { 
 		if (defined($vols[$i])) {
@@ -311,7 +321,7 @@
     chomp($response);
     my ($sum, undef) = split /\s+/, $response;
-    unless(defined($sum)) {
-        die("Failed to calculate md5sum locally. $filename $host $volume");
-    }
+     unless(defined($sum)) {
+         warn("Failed to calculate md5sum locally. $filename $host $volume");
+     }
     return($sum);
 }