chiark / gitweb /
upload server: permit stalls which start with lowercase letters 6.7.1
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Sat, 8 Jan 2011 15:26:22 +0000 (15:26 +0000)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Sat, 8 Jan 2011 15:26:22 +0000 (15:26 +0000)
yarrg/Commods.pm

index bce9a8e..f3ae56f 100644 (file)
@@ -431,8 +431,8 @@ sub check_tsv_line ($$) {
        defined $commods{$commod} or
        &$bad_data("unknown commodity ".errsan($commod));
     
-    $stall =~ m/^\p{IsUpper}|^[0-9]/ or
-       &$bad_data("stall not capitalised ".errsan($stall));
+    $stall =~ m/^\p{IsAlnum}/ or
+       &$bad_data("stall does not start 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;