From b7c5b2f71798c45e88d31c63e0be5f60cffb1b9d Mon Sep 17 00:00:00 2001
From: David Phillips <david@sighup.nz>
Date: Sun, 23 Sep 2018 14:11:26 +1200
Subject: ListParser: die on duplicate keys in hash

---
 ListParser.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'ListParser.pm')

diff --git a/ListParser.pm b/ListParser.pm
index 9e3e511..b7c3f26 100644
--- a/ListParser.pm
+++ b/ListParser.pm
@@ -83,9 +83,9 @@ sub parse_list {
 			my $item = substr($input, $item_i, $i - $item_i);
 			$item =~ s/^\s+|\s+$//g;
 			if ($is_hash) {
-				# FIXME should we die on duplicate keys or no?
 				my ($error, $key, $value) = parse_mapping($item);
 				die $error if $error;
+				die "Error: duplicate key \"$key\"" if grep {$_ eq $key} (keys %h_res);
 				$h_res{$key} = $value;
 			} else {
 				push @a_res, $item;
-- 
cgit v1.1