--- recepies/zfs/zfs-replicate-pool.pl	2011/09/05 22:52:27	269
+++ recepies/zfs/zfs-replicate-pool.pl	2011/09/06 09:09:37	270
@@ -97,7 +97,7 @@
 			$snapshot = "-i $from_pool/$name\@$prev $from_pool/$name\@$snap";
 		}
 
-		warn "zfs transfer $snapshot -> $to_dev";
+		warn "zfs transfer $snapshot -> $to_dev\n";
 
 		my $t = time();
 
@@ -116,8 +116,8 @@
 		$t = time() - $t;
 		warn "took $t seconds to complete\n";
 
-		$dev->system("zfs set readonly=on $to_pool/$name\@$snap") if $i == 0;
-		die $dev->error if $dev->error;
+		$dev->system("zfs set readonly=on $to_pool/$name") if $i == 0;
+		warn "ERROR: ",$dev->error if $dev->error;
 
 		sleep 1;
 		$dev_snapshot = snapshots_from $dev;