From ecb430c5830b451030da4cdb514f094c9703e808 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Tue, 31 Mar 2020 15:49:00 +0100
Subject: [PATCH] quacks-ingredients: -counts: Detect bad DATA (no + in entry)

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---
 quacks-ingredients-counts | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/quacks-ingredients-counts b/quacks-ingredients-counts
index 46d7f1b..a96ac16 100755
--- a/quacks-ingredients-counts
+++ b/quacks-ingredients-counts
@@ -36,7 +36,7 @@ foreach my $nspots (qw(1 2 3 4)) {
     foreach my $i (0..$#names) {
 	$_ = $l[$i] || '0+0';
 	$_ ||= 0;
-	m/\+/;
+	m/\+/ or die "$which $nspots ?";
 	
 	$count{$names[$i]}{$nspots} =
 	    $which eq 'All'     ? $` + $' :
-- 
2.30.2