diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/harddrake/ui.pm | bin | 9858 -> 9851 bytes | |||
| -rw-r--r-- | perl-install/modparm.pm | 4 |
2 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/harddrake/ui.pm b/perl-install/harddrake/ui.pm Binary files differindex 4e0f2dd6a..9e9a9104f 100644 --- a/perl-install/harddrake/ui.pm +++ b/perl-install/harddrake/ui.pm 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 ]; } |