summaryrefslogtreecommitdiffstats
path: root/perl-install/diskdrake/interactive.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/diskdrake/interactive.pm')
-rw-r--r--perl-install/diskdrake/interactive.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/diskdrake/interactive.pm b/perl-install/diskdrake/interactive.pm
index afcb4ba86..b4200d7f4 100644
--- a/perl-install/diskdrake/interactive.pm
+++ b/perl-install/diskdrake/interactive.pm
@@ -645,7 +645,7 @@ sub Type {
}
sub Label {
- my ($in, $hd, $part) = @_;
+ my ($in, $_hd, $part) = @_;
$in->ask_from('', N("Which volume label?"),
[ { val => \$part->{device_LABEL} } ]) or return;
$part->{prefer_device_LABEL} = to_bool($part->{device_LABEL});