$NetBSD: patch-aa,v 1.2 2010/02/13 22:18:25 heinz Exp $

--- Ident.pm.orig	1999-08-26 22:58:15.000000000 +0000
+++ Ident.pm
@@ -505,7 +507,7 @@ sub geterror ($) {
 }
 
 # provide import magic
-sub _export_hooks () {
+sub _export_hooks {
     my($tag, $hook);
     while ( ($tag, $hook) = each %EXPORT_HOOKS ) {
 	my $hookname = "_export_hook_$tag"; # pseudo-function name
