On Mon Jun 07 00:28:32 2010, TODDR wrote:
Show quoted text> I have co-maintainership on this module. Can someone suggest a patch
> on this?
Patch using cat hosts.diff | patch -p2:
**** Start of Ident.pm.diff ****
--- ../Net-Ident-1.20/Ident.pm 1999-08-27 00:58:15.000000000 +0200
+++ ../Net-Ident-1.20.new/Ident.pm 2010-06-08 21:46:50.774365267 +0200
@@ -25,6 +25,17 @@
'debug' => \&_set_debug,
);
+# provide import magic
+sub _export_hooks () {
+ my($tag, $hook);
+ while ( ($tag, $hook) = each %EXPORT_HOOKS ) {
+ my $hookname = "_export_hook_$tag"; # pseudo-function name
+ $EXPORT_TAGS{$tag} = [$hookname];
+ push @EXPORT_OK, $hookname;
+ push @EXPORT_FAIL, $hookname;
+ }
+}
+
# put the export hooks in the standard Exporter structures
_export_hooks();
# for compatibility mode, uncomment the next line @@ s/^#\s*// @@
@@ -504,17 +515,6 @@
$self->{error};
}
-# provide import magic
-sub _export_hooks () {
- my($tag, $hook);
- while ( ($tag, $hook) = each %EXPORT_HOOKS ) {
- my $hookname = "_export_hook_$tag"; # pseudo-function name
- $EXPORT_TAGS{$tag} = [$hookname];
- push @EXPORT_OK, $hookname;
- push @EXPORT_FAIL, $hookname;
- }
-}
-
# this is called whenever a function in @EXPORT_FAIL is imported.
# simply calls the installed export hooks from %EXPORT_HOOKS, or
# passes along the export_fail up the inheritance chain
**** End of Ident.pm.diff ****
**** Start of hosts.diff ****
--- ../Net-Ident-1.20/t/hosts 1999-03-08 23:35:20.000000000 +0100
+++ ../Net-Ident-1.20.new/t/hosts 2010-06-08 21:49:56.782487010 +0200
@@ -4,8 +4,8 @@
# note that these tests actually rely on a common buglet in identd
# implementations, in that they let you perform an ident lookup on
# a connection that is incoming.
-pc.xs4all.nl
-xs4all.nl
-lyrix.xs4all.nl
-lysator.liu.se
+#pc.xs4all.nl
+#xs4all.nl
+#lyrix.xs4all.nl
+#lysator.liu.se
127.0.0.1
**** End of hosts.diff ****
