fixed removal of destination snapshots

jollyjinx · Jan 31, 2014 · 32465b3 · 32465b3
1 parent 9085f84
commit 32465b3
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/zfstimemachinebackup.perl b/zfstimemachinebackup.perl
@@ -206,7 +206,7 @@
 
 						for my $snapshotname (@snapshotsnewerondestination)
 						{
-							JNX::ZFS::destroysnapshots( %destination, snapshots => $snapshotname );
+							JNX::ZFS::destroysnapshots( %destination, dataset => $destinationdataset,snapshots => $snapshotname );
 
 							@destinationsnapshots = grep(!/^\Q$snapshotname\E$/,@destinationsnapshots); # grep as delete @destinationsnapshots[$snapshotname] works only on hashes.
 						}
@@ -293,12 +293,12 @@
 							my $snapshottime = JNX::ZFS::timeofsnapshot($snapshotname);
 							if( $snapshottime < time()-$minimumtimetokeepsnapshotsonsource )
 							{
-								JNX::ZFS::destroysnapshots( %source, snapshots => $snapshotname );
+								JNX::ZFS::destroysnapshots( %source, dataset=>$sourcedataset, snapshots => $snapshotname );
 							}
 						}
 						else
 						{
-							JNX::ZFS::destroysnapshots( %source, snapshots => $snapshotname );
+							JNX::ZFS::destroysnapshots( %source, dataset=>$sourcedataset, snapshots => $snapshotname );
 						}
 					}
 				}
@@ -340,7 +340,7 @@
 					{
 						print 'Will remove snapshot:'.$snapshotname.'='.$snapshottime.' Backup in bucket: $backupbucket{'.$bucket.'}='.$backupbuckets{$bucket}."\n";
 
-						JNX::ZFS::destroysnapshots( %destination, snapshots => $snapshotname );
+						JNX::ZFS::destroysnapshots( %destination, dataset => $destinationdataset, snapshots => $snapshotname );
 					}
 				}
 				else