diff options
Diffstat (limited to 'convert/merge2pcitable.pl')
| -rwxr-xr-x | convert/merge2pcitable.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/convert/merge2pcitable.pl b/convert/merge2pcitable.pl index 071b58da..120e45c3 100755 --- a/convert/merge2pcitable.pl +++ b/convert/merge2pcitable.pl @@ -53,7 +53,7 @@ sub read_pcitable { if (my ($id1, $id2, @l) = split /\t+/) { my ($subid1, $subid2) = ('ffff', 'ffff'); ($subid1, $subid2, @l) = @l if @l == 4; - @l == 2 or die "$f $line: bad number of fields (in $_)\n"; + @l == 2 or die "$f $line: bad number of fields " . (int @l) . " (in $_)\n"; my ($module, $text) = @l; my $class = $text =~ /(.*?)|/; |