diff options
Diffstat (limited to 'perl-install/common.pm')
| -rw-r--r-- | perl-install/common.pm | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/perl-install/common.pm b/perl-install/common.pm index f39cda588..a673dce04 100644 --- a/perl-install/common.pm +++ b/perl-install/common.pm @@ -166,6 +166,20 @@ sub take_screenshot { $in->ask_warn('', _("Screenshots will be available after install in %s", "/root/DrakX-screenshots")) if $warn; } +sub join_lines { + my @l; + my $s; + foreach (@_) { + if (/^\s/) { + $s .= $_; + } else { + push @l, $s if $s; + $s = $_; + } + } + @l, if_($s, $s); +} + #-###################################################################################### #- Wonderful perl :( #-###################################################################################### |