Correctly record newlines for multi-line settings
[darcs-mirror-metainit.git] / Parse.pm
index 359ec1f..325c623 100644 (file)
--- a/Parse.pm
+++ b/Parse.pm
@@ -15,9 +15,10 @@ sub parse {
            $lastkey = $key;
         }
         elsif ($lastkey) {
+           chomp;
             s/^ //;
             s/^\.$//;
-            $parsed{$lastkey} .= $_;
+            $parsed{$lastkey} .= "\n$_";
         } else {
            die "Cannot parse $!";
        }