devel/autoconf268/files/patch-bin-autoscan.in


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);
 }