Report the line number where gethints.pl does not understand something

in an old device line.
This commit is contained in:
Peter Wemm 2000-06-26 09:08:23 +00:00
parent ad61de5c4e
commit 1bce768912
3 changed files with 6 additions and 3 deletions

View file

@ -9,6 +9,7 @@
# $FreeBSD$
while (<>) {
$line++;
chop;
s/#.*//;
next unless /^device/;
@ -94,6 +95,6 @@ while (<>) {
}
next;
}
print STDERR "unrecognized config token $key\n";
print STDERR "unrecognized config token '$key' on line $line\n";
}
}

View file

@ -9,6 +9,7 @@
# $FreeBSD$
while (<>) {
$line++;
chop;
s/#.*//;
next unless /^device/;
@ -94,6 +95,6 @@ while (<>) {
}
next;
}
print STDERR "unrecognized config token $key\n";
print STDERR "unrecognized config token '$key' on line $line\n";
}
}

View file

@ -9,6 +9,7 @@
# $FreeBSD$
while (<>) {
$line++;
chop;
s/#.*//;
next unless /^device/;
@ -87,6 +88,6 @@ while (<>) {
}
next;
}
print STDERR "unrecognized config token $key\n";
print STDERR "unrecognized config token '$key' on line $line\n";
}
}