diff options
Diffstat (limited to 'perl-install/modparm.pm')
| -rw-r--r-- | perl-install/modparm.pm | 5 |
1 files changed, 3 insertions, 2 deletions
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)"; } |