From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 21 Aug 2022 17:43:23 +0000 (+0100)
Subject: tolerate stalls whose names don't start with alphanumerics
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?p=ypp-sc-tools.git;a=commitdiff_plain;h=83139efed910a3c4e6e5c3e6214b88d42cd5f2e2

tolerate stalls whose names don't start with alphanumerics
---

diff --git a/yarrg/Commods.pm b/yarrg/Commods.pm
index fcd3eac..7f40610 100644
--- a/yarrg/Commods.pm
+++ b/yarrg/Commods.pm
@@ -434,8 +434,8 @@ sub check_tsv_line ($$) {
 	defined $commods{$commod} or
 	&$bad_data("unknown commodity ".errsan($commod));
     
-    $stall =~ m/^\p{IsAlnum}/ or
-	&$bad_data("stall does not start with alphanumeric ".errsan($stall));
+    $stall =~ m/\p{IsAlnum}/ or
+	&$bad_data("stall does not contain with alphanumeric".errsan($stall));
     !exists $check_tsv_done{$commod,$stall} or
 	&$bad_data("repeated data ".errsan($commod).",".errsan($stall));
     $check_tsv_done{$commod,$stall}= 1;