chiark
/
gitweb
/
~yarrgweb
/
ypp-sc-tools.main.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
c184fe8
)
tolerate stalls whose names don't start with alphanumerics
author
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Sun, 21 Aug 2022 17:43:23 +0000
(18:43 +0100)
committer
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Sun, 21 Aug 2022 17:43:23 +0000
(18:43 +0100)
yarrg/Commods.pm
patch
|
blob
|
history
diff --git
a/yarrg/Commods.pm
b/yarrg/Commods.pm
index fcd3eacfff221733c1038754c66b80984be09ea1..7f4061048c5e7360c4be9a62197d13d335ee76ff 100644
(file)
--- 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;