From aa2f79951f343ca407f79adad3691b2017258476 Mon Sep 17 00:00:00 2001
From: Joachim Breitner <nomeata@debian.org>
Date: Sat, 25 Jul 2009 01:27:56 +0000
Subject: [PATCH] strip newlines on multiline fields in export output correctly

Signed-off-by: Philipp Kern <pkern@debian.org>
---
 bin/wanna-build | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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";
-- 
2.39.2