diff options
author | markm <markm@FreeBSD.org> | 2001-04-08 20:11:51 +0000 |
---|---|---|
committer | markm <markm@FreeBSD.org> | 2001-04-08 20:11:51 +0000 |
commit | c818630db2753ad55f201889dba54d20097d64bd (patch) | |
tree | 52c2abcfe8852541d71af2d72c40adbf3fa9975d | |
parent | 1c1ece43e36a378d5f28a97aeb58508b88cb44a3 (diff) | |
download | FreeBSD-src-c818630db2753ad55f201889dba54d20097d64bd.zip FreeBSD-src-c818630db2753ad55f201889dba54d20097d64bd.tar.gz |
From the author:
Fix a bug when the return values from the overridden sub were lost
during the first invocation.
-rw-r--r-- | gnu/usr.bin/perl/BSDPAN/BSDPAN/Override.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gnu/usr.bin/perl/BSDPAN/BSDPAN/Override.pm b/gnu/usr.bin/perl/BSDPAN/BSDPAN/Override.pm index 5e667ee..c11cd7a 100644 --- 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 |