From: Ian Jackson Date: Tue, 28 Jul 2009 18:02:30 +0000 (+0100) Subject: We don't care about backslashes X-Git-Tag: 3.0~23 X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.db-test.git;a=commitdiff_plain;h=af7006f2ffc8a3219fb4c70b0f62e423f18b5b5b We don't care about backslashes --- diff --git a/pctb/Commods.pm b/pctb/Commods.pm index d9a2a94..955446f 100644 --- a/pctb/Commods.pm +++ b/pctb/Commods.pm @@ -275,7 +275,6 @@ sub check_tsv_line ($$) { chomp($l) or &$bad_data('missing end-of-line'); $l !~ m/\P{IsPrint}/ or &$bad_data('nonprinting char(s)'); - $l !~ m/\\/ or &$bad_data('data contains backslashes'); my @v= split /\t/, $l, -1; @v==6 or &$bad_data('wrong number of fields'); my ($commod,$stall) = @v;