chiark
/
gitweb
/
~yarrgweb
/
ypp-sc-tools.db-test.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
compatibility with obsidian
[ypp-sc-tools.db-test.git]
/
yarrg
/
Commods.pm
diff --git
a/yarrg/Commods.pm
b/yarrg/Commods.pm
index f3ae56fcbd0e4827c2168f6ebd3f15cdc070a6b2..5d0ffe29fd46b8dd7b06802655b84d132ec9f100 100644
(file)
--- a/
yarrg/Commods.pm
+++ b/
yarrg/Commods.pm
@@
-422,9
+422,10
@@
sub check_tsv_line ($$) {
chomp($l) or &$bad_data('missing end-of-line');
chomp($l) or &$bad_data('missing end-of-line');
- $l
!~ m/\P{IsPrint}/ or &$bad_data('nonprinting char(s)'
);
+ $l
=~ m/[\t [:graph:]]/ or &$bad_data('nonprinting char(s) '.sprintf "%#x", ord $&
);
my @v= split /\t/, $l, -1;
@v==6 or &$bad_data('wrong number of fields');
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
my ($commod,$stall) = @v;
!keys %commods or