envstore: Added support for values with nwelines

1 files changed, 8 insertions, 2 deletions

diff --git a/bin/envstore b/bin/envstore
index e3398b6..afc9f3e 100755
--- a/bin/envstore
+++ b/bin/envstore
@@ -45,7 +45,11 @@ sub load_store {
 		chomp;
 		/^(\S+)\s+(.*)$/ or next;
 		($key, $value) = ($1, $2);
-		$store{$key} = $value;
+		if (exists($store{$key})) {
+			$store{$key} .= "\n$value";
+		} else {
+			$store{$key} = $value;
+		}
 	}
 	close($handle);
 }
@@ -55,7 +59,9 @@ sub save_store {
 	umask(0077);
 	open(my $handle, '>', $store_file) or die("Cannot open $store_file: $!");
 	foreach $key (keys(%store)) {
-		print $handle "$key\t$store{$key}\n";
+		foreach (split(/\n/, $store{$key})) {
+			print $handle "$key\t$_\n";
+		}
 	}
 	close($handle);
 }