diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2002-08-05 15:23:12 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2002-08-05 15:23:12 +0000 |
| commit | 86e1fe2e37be9997d1643cedf884b212c8147b4c (patch) | |
| tree | 590865d62c49b5c343ece475fc875e109bb87ffc /perl-install/modparm.pm | |
| parent | eab7c4563e689dfd450b7d2c4e5ea1966c5b960c (diff) | |
| download | drakx-86e1fe2e37be9997d1643cedf884b212c8147b4c.tar drakx-86e1fe2e37be9997d1643cedf884b212c8147b4c.tar.gz drakx-86e1fe2e37be9997d1643cedf884b212c8147b4c.tar.bz2 drakx-86e1fe2e37be9997d1643cedf884b212c8147b4c.tar.xz drakx-86e1fe2e37be9997d1643cedf884b212c8147b4c.zip | |
no one use second paramater of raw_parameters
Diffstat (limited to 'perl-install/modparm.pm')
| -rw-r--r-- | perl-install/modparm.pm | 4 |
1 files changed, 2 insertions, 2 deletions
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 ]; } |