diff options
Diffstat (limited to 'perl-install/modparm.pm')
-rw-r--r-- | perl-install/modparm.pm | 17 |
1 files changed, 1 insertions, 16 deletions
diff --git a/perl-install/modparm.pm b/perl-install/modparm.pm index 849cc40a1..ee5fd46ab 100644 --- a/perl-install/modparm.pm +++ b/perl-install/modparm.pm @@ -23,7 +23,7 @@ sub parameters { } my @parameters; - foreach (join_lines(`$modinfo -p $module`)) { + foreach (common::join_lines(`$modinfo -p $module`)) { chomp; next if /^warning:/; (my $name, $_) = /(\S+)\s+(.*)/s or warn "modparm::get_options_name($module): unknown line\n"; @@ -60,19 +60,4 @@ sub parameters { @parameters; } - -sub join_lines { - my @l; - my $s; - foreach (@_) { - if (/^\s/) { - $s .= $_; - } else { - push @l, $s if $s; - $s = $_; - } - } - @l, if_($s, $s); -} - 1; |