From the author:

Fix a bug when the return values from the overridden sub were lost during the first invocation.
2001-04-08 20:11:51 +00:00 · 2001-04-08 20:11:51 +00:00 · eeb8ab80dc
commit eeb8ab80dc
parent e14f19f42a
1 changed files with 1 additions and 0 deletions
--- a/gnu/usr.bin/perl/BSDPAN/BSDPAN/Override.pm
+++ b/gnu/usr.bin/perl/BSDPAN/BSDPAN/Override.pm
@ -102,6 +102,7 @@ sub override ($$) {
 		eval "*\$name = sub {
 			\\\$repsub2->(
 				\\\$real_addr, \\\@_) };";
+		\@r;
 		}, \@_)
 };
 EOF