chiark
/
gitweb
/
~yarrgweb
/
ypp-sc-tools.web-live.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
We don't care about backslashes
[ypp-sc-tools.web-live.git]
/
pctb
/
Commods.pm
diff --git
a/pctb/Commods.pm
b/pctb/Commods.pm
index d9a2a948155c314692a9c83d46fe7daeea7cfa09..955446f402f48719943af31844cc17e9742649a1 100644
(file)
--- 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)');
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;
my @v= split /\t/, $l, -1;
@v==6 or &$bad_data('wrong number of fields');
my ($commod,$stall) = @v;