summaryrefslogtreecommitdiffstats
path: root/convert/merge2pcitable.pl
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-02-20 15:39:32 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-02-20 15:39:32 +0000
commitb5a644d0ed799400232fa786046ee053b800fda7 (patch)
tree5807f00e8a3f2d309550242db07ed3294ecf2298 /convert/merge2pcitable.pl
parent3c4a46d244c8569c8e2fcb2a81cf556bff934bb9 (diff)
downloadldetect-lst-b5a644d0ed799400232fa786046ee053b800fda7.tar
ldetect-lst-b5a644d0ed799400232fa786046ee053b800fda7.tar.gz
ldetect-lst-b5a644d0ed799400232fa786046ee053b800fda7.tar.bz2
ldetect-lst-b5a644d0ed799400232fa786046ee053b800fda7.tar.xz
ldetect-lst-b5a644d0ed799400232fa786046ee053b800fda7.zip
emacs compatible error messages
Diffstat (limited to 'convert/merge2pcitable.pl')
-rwxr-xr-xconvert/merge2pcitable.pl14
1 files changed, 7 insertions, 7 deletions
diff --git a/convert/merge2pcitable.pl b/convert/merge2pcitable.pl
index 3f0384f0..fd82c19e 100755
--- a/convert/merge2pcitable.pl
+++ b/convert/merge2pcitable.pl
@@ -67,13 +67,13 @@ 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 " . (int @l) . " (in $_)\n";
+ @l == 2 or die "$f:$line: bad number of fields " . (int @l) . " (in $_)\n";
my ($module, $text) = @l;
my $class = $text =~ /(.*?)|/;
my $id1_ = $rm_quote_silent->($id1);
if ($class{$id1_}) {
- print STDERR "$f $line: class $id1_ named both $class and $class{$id1_}, taking $class{$id1_}\n";
+ print STDERR "$f:$line: class $id1_ named both $class and $class{$id1_}, taking $class{$id1_}\n";
$class{$id1_} ||= $1;
$text =~ s/(.*?)|/$class{$id1_}|/;
}
@@ -86,13 +86,13 @@ sub read_pcitable {
$module = '"yenta_socket"' if $module =~ /i82365/;
my $id = join '', map {
s/^0x//;
- length == 4 or error("$f $line: bad number $_");
+ length == 4 or error("$f:$line: bad number $_");
lc($_);
} $id1, $id2, $subid1, $subid2;
- $drivers{$id} && $strict and error("$f $line: multiple entry for $id (skipping $module $text)");
+ $drivers{$id} && $strict and error("$f:$line: multiple entry for $id (skipping $module $text)");
$drivers{$id} ||= [ map &$rm_quote, $module, $text ];
} else {
- die "$f $line: bad line\n";
+ die "$f:$line: bad line\n";
}
}
\%drivers;
@@ -136,12 +136,12 @@ sub read_pciids {
last;
} elsif (my ($subid1, $subid2, $text) = /^\t\t(\S+)\s+(\S+)\s+(.+)/) {
$text =~ s/\t/ /g;
- $id1 && $id2 or die "$f $line: unexpected device\n";
+ $id1 && $id2 or die "$f:$line: unexpected device\n";
$drivers{sprintf qq(%04x%04x%04x%04x), hex($id1), hex($id2), hex($subid1), hex($subid2)} = [ "unknown", "$class|$text" ];
} elsif (/^\t(\S+)\s+(.+)/) {
($id2, $text) = ($1, $2);
$text =~ s/\t/ /g;
- $id1 && $id2 or die "$f $line: unexpected device\n";
+ $id1 && $id2 or die "$f:$line: unexpected device\n";
$drivers{sprintf qq(%04x%04xffffffff), hex($id1), hex($id2)} = [ "unknown", "$class|$text" ];
} elsif (/^(\S+)\s+(.+)/) {
$id1 = $1;