quacks-ingredients: -counts: Detect bad DATA (no + in entry)

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

diff --git a/quacks-ingredients-counts b/quacks-ingredients-counts
index 46d7f1bee8c294027a22e71bca1eeaa1627866b3..a96ac16cba843ebea62a634506ecfc8903254d65 100755 (executable)
--- 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'     ? $` + $' :