From 6a8c70cc4efe0f67d3bb9a6841a32c8bdba2b66e Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 21 Aug 2001 22:08:34 +0000 Subject: *** empty log message *** --- convert/merge2pcitable.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'convert') 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 =~ /(.*?)|/; -- cgit v1.2.1