Alexey Tourbin wrote:
> Hello,
>
> $ perl -e 'use autouse Pod::Usage => "pod2usage(()"; pod2usage()'
> Undefined subroutine &main::pod2usage called at -e line 1.
> $
>
> --- autouse.pm- 2004-07-04 21:32:39 +0000
> +++ autouse.pm 2005-08-18 05:01:52 +0000
Thanks, both autouse patches applied as change #25302.
> @@ -63,7 +62,8 @@ sub import {
> };
>
> if (defined $proto) {
> - *$closure_import_func = eval "sub ($proto) { &\$load_sub }";
> + *$closure_import_func = eval "sub ($proto) { goto &\$load_sub }"
> + || die;
> } else {
> *$closure_import_func = $load_sub;
> }
> End of patch
>
> $ perl -e 'use autouse Pod::Usage => "pod2usage(()"; pod2usage()'
> Prototype not terminated at (eval 1) line 1.
> ...propagated at /usr/lib/perl5/autouse.pm line 65.
> BEGIN failed--compilation aborted at -e line 1.
> $
>
> I guess the latter behaviour is more appropriate. I also see no reason
> for saving a stub frame, so using goto should be ok.
