summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-07-02 12:52:13 +0000
committerdamien <damien@mandriva.com>2001-07-02 12:52:13 +0000
commit1d4648346c49938f9e92fce4c6d5dbe9bb6df77d (patch)
treef8cb01804bd00ef6d386bed5646f84a178cd4cd7
parent5b472180615f3fcf1818ee56ee4b8242626d771b (diff)
downloaddrakx-1d4648346c49938f9e92fce4c6d5dbe9bb6df77d.tar
drakx-1d4648346c49938f9e92fce4c6d5dbe9bb6df77d.tar.gz
drakx-1d4648346c49938f9e92fce4c6d5dbe9bb6df77d.tar.bz2
drakx-1d4648346c49938f9e92fce4c6d5dbe9bb6df77d.tar.xz
drakx-1d4648346c49938f9e92fce4c6d5dbe9bb6df77d.zip
syntax correction
-rw-r--r--perl-install/modparm.pm5
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)";
}