97 |
$snapshot = "-i $from_pool/$name\@$prev $from_pool/$name\@$snap"; |
$snapshot = "-i $from_pool/$name\@$prev $from_pool/$name\@$snap"; |
98 |
} |
} |
99 |
|
|
100 |
warn "zfs transfer $snapshot -> $to_dev"; |
warn "zfs transfer $snapshot -> $to_dev\n"; |
101 |
|
|
102 |
my $t = time(); |
my $t = time(); |
103 |
|
|
116 |
$t = time() - $t; |
$t = time() - $t; |
117 |
warn "took $t seconds to complete\n"; |
warn "took $t seconds to complete\n"; |
118 |
|
|
119 |
$dev->system("zfs set readonly=on $to_pool/$name\@$snap") if $i == 0; |
$dev->system("zfs set readonly=on $to_pool/$name") if $i == 0; |
120 |
die $dev->error if $dev->error; |
warn "ERROR: ",$dev->error if $dev->error; |
121 |
|
|
122 |
sleep 1; |
sleep 1; |
123 |
$dev_snapshot = snapshots_from $dev; |
$dev_snapshot = snapshots_from $dev; |