From c24f9dfdd1534e69a9feedd1460c2f45970515eb Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 9 Jul 2002 22:48:04 +0000
Subject: move join_lines to common

---
 perl-install/common.pm | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

(limited to 'perl-install/common.pm')

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 :(
 #-######################################################################################
-- 
cgit v1.2.1