diff options
| -rw-r--r-- | perl-install/modules/parameters.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/perl-install/modules/parameters.pm b/perl-install/modules/parameters.pm index d6338f8e1..66590f7d8 100644 --- a/perl-install/modules/parameters.pm +++ b/perl-install/modules/parameters.pm @@ -21,7 +21,11 @@ sub parameters { foreach (common::join_lines(run_program::get_stdout('modinfo', '-p', $module))) { chomp; next if /^warning:/; - (my $name, $_) = /(\S+)\s+(.*)/s or warn "modules::parameters::get_options_name($module): unknown line\n"; + (my $name, $_) = /(\w+)(?::|\s+)(.*)/s or warn "modules::parameters::get_options_name($module): unknown line\n"; + if (c::kernel_version() =~ /^\Q2.6/) { + push @parameters, [ $name, '', $_ ]; + next; + } my $c_types = 'int|string|short|byte|char|long'; my ($is_a_number, $description, $min, $max) = (0, '', 1, 1); |