From: Joachim Breitner <nomeata@debian.org>
Date: Sat, 25 Jul 2009 01:27:56 +0000 (+0000)
Subject: strip newlines on multiline fields in export output correctly
X-Git-Url: https://git.donarmstrong.com/?p=wannabuild.git;a=commitdiff_plain;h=aa2f79951f343ca407f79adad3691b2017258476

strip newlines on multiline fields in export output correctly

Signed-off-by: Philipp Kern <pkern@debian.org>
---

diff --git a/bin/wanna-build b/bin/wanna-build
index 8a9352f..0dcd376 100755
--- a/bin/wanna-build
+++ b/bin/wanna-build
@@ -2186,6 +2186,7 @@ sub write_db {
 				if (!defined($ui->{'User'}));
 			    foreach $key (keys %{$ui}) {
 				my $val = $ui->{$key};
+                                $val =~ s/\n*$//;
 				$val =~ s/^/ /mg;
 				$val =~ s/^ $/ ./mg;
 				print F "$key: $val\n";
@@ -2196,7 +2197,7 @@ sub write_db {
 		else {
 			foreach $key (keys %{$pkg}) {
 				my $val = $pkg->{$key};
-				chomp( $val );
+                                $val =~ s/\n*$//;
 				$val =~ s/^/ /mg;
 				$val =~ s/^ $/ ./mg;
 				print F "$key: $val\n";