$NetBSD: patch-aa,v 1.1.1.1 2005/10/16 17:42:46 heinz Exp $

--- Ident.pm.orig	Fri Aug 27 00:58:15 1999
+++ Ident.pm
@@ -25,6 +25,8 @@ use vars qw(@ISA @EXPORT_OK $DEBUG $VERS
     'debug' => \&_set_debug,
 );
 
+# avoid "called too early to check prototype" messages
+sub _export_hooks ();
 # put the export hooks in the standard Exporter structures
 _export_hooks();
 # for compatibility mode, uncomment the next line @@ s/^#\s*// @@
