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