[perl #92290, #92406] Returning a pad var from lv sub
authorFather Chrysostomos <sprout@cpan.org>
Wed, 8 Jun 2011 00:05:06 +0000 (17:05 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Wed, 8 Jun 2011 03:44:46 +0000 (20:44 -0700)
commite08be60b99b393465a58e174337c5e8237231b1f
treef2277272b40601e910d5599b8d5e9c99fdbe55e6
parentd507ecb9ce86ef53117ff81c35d0686965c6b715
[perl #92290, #92406] Returning a pad var from lv sub

This fixes a recent (post-5.14.0) regression.

Commit bf8fb5e (the fix for #62498) introduced it for lvalue subs with
no return statement [perl #92406].
Commit fa1e92c (the fix for #72724) introduced it for lvalue subs that
do have an explicit return [perl #92290].

Simply returning a scalar itself from an lvalue sub does not work if
it is a pad variable with a reference count of 1.  In that circum-
stance, the sub-popping code sees that the SV can be re-used the next
time the sub is called, so it undefines it and hangs on to it.  So
the scalar returned gets emptied before the calling code can see it.

The reference count has to be increased temporarily, which sv_2mortal
and SvREFCNT_inc combined accomplish.
pp_ctl.c
pp_hot.c
t/op/sub_lval.t