fix readonly flag for first snapshot

git-svn-id: svn://svn.rot13.org/sysadmin-cookbook@270 191e9f34-6774-4a6d-acfc-7664dacd4a2a

diff --git a/recepies/zfs/zfs-replicate-pool.pl b/recepies/zfs/zfs-replicate-pool.pl
index 71e4b05..57c94cb 100755 (executable)
--- a/recepies/zfs/zfs-replicate-pool.pl
+++ b/recepies/zfs/zfs-replicate-pool.pl
@@ -97,7 +97,7 @@ foreach my $fs ( @arh ) {
                        $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 @@ foreach my $fs ( @arh ) {
                $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;