summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/harddrake/ui.pmbin9858 -> 9851 bytes
-rw-r--r--perl-install/modparm.pm4
2 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/harddrake/ui.pm b/perl-install/harddrake/ui.pm
index 4e0f2dd6a..9e9a9104f 100644
--- a/perl-install/harddrake/ui.pm
+++ b/perl-install/harddrake/ui.pm
Binary files differ
diff --git a/perl-install/modparm.pm b/perl-install/modparm.pm
index f31a0178e..2defe4221 100644
--- a/perl-install/modparm.pm
+++ b/perl-install/modparm.pm
@@ -57,7 +57,7 @@ sub raw_parameters {
}
#- print "STILL HAVE ($_)\n" if $_;
- push @parameters, [ $name, $1, $description, $min, $max, $is_a_number ];
+ push @parameters, [ $name, $description, $min, $max, $is_a_number ];
}
@parameters;
}
@@ -66,7 +66,7 @@ sub parameters {
my ($module) = @_;
my @parameters ;
foreach (raw_parameters($module)) {
- my ($name, undef, $description, $min, $max, $is_a_number) = @$_;
+ my ($name, $description, $min, $max, $is_a_number) = @$_;
my $format = parameter_type($min, $max, $is_a_number);
push @parameters, [ $format ? "$name ($format)" : $name, $description ];
}