strip newlines on multiline fields in export output correctly

[wannabuild.git] / bin / wanna-build

diff --git a/bin/wanna-build b/bin/wanna-build
index 8a9352f4b052ac690b12987f41618ab5150df243..0dcd3764a7388f4efd7850ebf08bc555187ba885 100755 (executable)
--- 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";