From 86e1fe2e37be9997d1643cedf884b212c8147b4c Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Mon, 5 Aug 2002 15:23:12 +0000
Subject: no one use second paramater of raw_parameters

---
 perl-install/harddrake/ui.pm | Bin 9858 -> 9851 bytes
 perl-install/modparm.pm      |   4 ++--
 2 files changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/harddrake/ui.pm b/perl-install/harddrake/ui.pm
index 4e0f2dd6a..9e9a9104f 100644
Binary files a/perl-install/harddrake/ui.pm and b/perl-install/harddrake/ui.pm 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 ];
   }
-- 
cgit v1.2.1