summaryrefslogtreecommitdiffstats
path: root/perl-install/diskdrake
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-11-18 12:09:27 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-11-18 12:09:27 +0000
commite3cc420bd7425682fac3916d6aad273701442be8 (patch)
treeb2f75f9d7f769af04f3c8b65479fbbbfac6921ad /perl-install/diskdrake
parentfe6865eb75a2fadd74c8b3f52c792878c79a753a (diff)
downloaddrakx-backup-do-not-use-e3cc420bd7425682fac3916d6aad273701442be8.tar
drakx-backup-do-not-use-e3cc420bd7425682fac3916d6aad273701442be8.tar.gz
drakx-backup-do-not-use-e3cc420bd7425682fac3916d6aad273701442be8.tar.bz2
drakx-backup-do-not-use-e3cc420bd7425682fac3916d6aad273701442be8.tar.xz
drakx-backup-do-not-use-e3cc420bd7425682fac3916d6aad273701442be8.zip
perl_checker compliance
Diffstat (limited to 'perl-install/diskdrake')
-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});