summaryrefslogtreecommitdiffstats
path: root/convert/merge2pcitable.pl
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-08-21 22:08:34 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-08-21 22:08:34 +0000
commit6a8c70cc4efe0f67d3bb9a6841a32c8bdba2b66e (patch)
tree814b4f05b89a03c9d9d25acf44f859d16b875adf /convert/merge2pcitable.pl
parenta450c76528940c3d5f3f77c4fc8ec431534632a7 (diff)
downloadldetect-lst-6a8c70cc4efe0f67d3bb9a6841a32c8bdba2b66e.tar
ldetect-lst-6a8c70cc4efe0f67d3bb9a6841a32c8bdba2b66e.tar.gz
ldetect-lst-6a8c70cc4efe0f67d3bb9a6841a32c8bdba2b66e.tar.bz2
ldetect-lst-6a8c70cc4efe0f67d3bb9a6841a32c8bdba2b66e.tar.xz
ldetect-lst-6a8c70cc4efe0f67d3bb9a6841a32c8bdba2b66e.zip
*** empty log message ***
Diffstat (limited to 'convert/merge2pcitable.pl')
-rwxr-xr-xconvert/merge2pcitable.pl2
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 =~ /(.*?)|/;