summaryrefslogtreecommitdiffstats
path: root/perl-install/modparm.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2002-08-05 15:23:12 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2002-08-05 15:23:12 +0000
commit86e1fe2e37be9997d1643cedf884b212c8147b4c (patch)
tree590865d62c49b5c343ece475fc875e109bb87ffc /perl-install/modparm.pm
parenteab7c4563e689dfd450b7d2c4e5ea1966c5b960c (diff)
downloaddrakx-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.pm4
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 ];
}