From 1d4648346c49938f9e92fce4c6d5dbe9bb6df77d Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Mon, 2 Jul 2001 12:52:13 +0000
Subject: syntax correction

---
 perl-install/modparm.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'perl-install/modparm.pm')

diff --git a/perl-install/modparm.pm b/perl-install/modparm.pm
index 1da5acc8a..6d20a2178 100644
--- a/perl-install/modparm.pm
+++ b/perl-install/modparm.pm
@@ -22,6 +22,7 @@ sub get_options_result($@) {
 sub get_options_name($) {
   my ($module) = @_;
 
+  my @names;
   my @line = `/sbin/modinfo -p $module`;
   foreach (@line) {
       chomp;
@@ -29,9 +30,9 @@ sub get_options_name($) {
       s/string/string/;
       s/short/h/;
       s/long/l/;
-      s/(\S) array \(min = (\d+), max = (\d+))/$2-$3$1/;
+      s/(\S) array \(min = (\d+), max = (\d+)\)/$2-$3$1/;
       s/(\d)-\1i/$1i/;
-      if (/parm:\s+(*+)/) {
+      if (/parm:\s+(.+)/) {
 	  my ($name, $type) = split '\s', $1;
 	  push @names, "$name ($type)";
       }
-- 
cgit v1.2.1