Imported Upstream version 2.6.1p2

[debian/amanda] / perl / Amanda / Application / Zfs.pm

diff --git a/perl/Amanda/Application/Zfs.pm b/perl/Amanda/Application/Zfs.pm
index 8c7e7165e80f4dda6cca736aeda7441ea3f79a95..0cbd7a186eb1be6142e89ee99ae01a620b7a5bbe 100644 (file)
--- a/perl/Amanda/Application/Zfs.pm
+++ b/perl/Amanda/Application/Zfs.pm
@@ -379,12 +379,12 @@ sub zfs_build_snapshotname {
     my $snapshotname = "";
 
     if (!defined $level) {
-      $snapshotname = "amanda-" . Amanda::Util::sanitise_filename($device) . "-current";
+      $snapshotname = "amanda-" . Amanda::Util::sanitise_filename($self->{disk}) . "-current";
     } else {
       if ($level < 0) {
-       $snapshotname = "amanda-" . Amanda::Util::sanitise_filename($device) . "-check";
+       $snapshotname = "amanda-" . Amanda::Util::sanitise_filename($self->{disk}) . "-check";
       } else {
-        $snapshotname = "amanda-" . Amanda::Util::sanitise_filename($device) . "-" . $level;
+        $snapshotname = "amanda-" . Amanda::Util::sanitise_filename($self->{disk}) . "-" . $level;
       }
     }