blob: 68836ffb60bc090a77929562e83f4b02ff697291 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
--- bin/autoscan.in.orig Fri Mar 8 06:52:41 2002
+++ bin/autoscan.in Mon Sep 16 03:56:50 2002
@@ -192,7 +192,11 @@
sub used ($$;$)
{
my ($kind, $word, $where) = @_;
- $where ||= "$File::Find::name:$.";
+ my $lineno = 0;
+ if (defined($.)) {
+ $lineno = $.;
+ }
+ $where ||= "$File::Find::name:$lineno";
push (@{$used{$kind}{$word}}, $where);
}
|