X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?a=blobdiff_plain;f=yarrg%2FCommods.pm;h=42670342372f8dfbc20f24d063e74d796c041f4b;hb=a203bc7861fa98862f6b887d07fe824d790e001b;hp=f3ae56fcbd0e4827c2168f6ebd3f15cdc070a6b2;hpb=deb63b9ee1679d519cd8817009da3587ac7b361c;p=ypp-sc-tools.main.git diff --git a/yarrg/Commods.pm b/yarrg/Commods.pm index f3ae56f..4267034 100644 --- a/yarrg/Commods.pm +++ b/yarrg/Commods.pm @@ -425,6 +425,7 @@ sub check_tsv_line ($$) { $l !~ m/\P{IsPrint}/ or &$bad_data('nonprinting char(s)'); my @v= split /\t/, $l, -1; @v==6 or &$bad_data('wrong number of fields'); + $v[1] =~ s/^\s+//; $v[1] =~ s/\s+$//; # ooo don't check :-( my ($commod,$stall) = @v; !keys %commods or