diff options
| author | damien <damien@mandriva.com> | 2001-07-02 12:52:13 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2001-07-02 12:52:13 +0000 |
| commit | 1d4648346c49938f9e92fce4c6d5dbe9bb6df77d (patch) | |
| tree | f8cb01804bd00ef6d386bed5646f84a178cd4cd7 /perl-install | |
| parent | 5b472180615f3fcf1818ee56ee4b8242626d771b (diff) | |
| download | drakx-1d4648346c49938f9e92fce4c6d5dbe9bb6df77d.tar drakx-1d4648346c49938f9e92fce4c6d5dbe9bb6df77d.tar.gz drakx-1d4648346c49938f9e92fce4c6d5dbe9bb6df77d.tar.bz2 drakx-1d4648346c49938f9e92fce4c6d5dbe9bb6df77d.tar.xz drakx-1d4648346c49938f9e92fce4c6d5dbe9bb6df77d.zip | |
syntax correction
Diffstat (limited to 'perl-install')
| -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)"; } |