diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2013-10-24 05:41:17 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2013-10-24 05:41:17 -0700 |
| commit | a373464fd655c7246cf689f421efc503307b705c (patch) | |
| tree | 5ef4595eced510b2ea8b5cc6548e9f87c82beb09 /op.h | |
| parent | a9b7658f66b4773c3d3b573410a0bc5963f7e279 (diff) | |
| download | perl-a373464fd655c7246cf689f421efc503307b705c.tar.gz | |
Fix bare blocks in lvalue subs
If a bare block is the last thing in an lvalue sub, OP_LEAVELOOP needs
to propagate lvalue context and handle returned arrays properly, just
as OP_LEAVE has done since yesterday.
This is a follow-up to 2ec7f6f24289. This came up in ticket #119797.
Diffstat (limited to 'op.h')
| -rw-r--r-- | op.h | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -172,7 +172,7 @@ Deprecated. Use C<GIMME_V> instead. /* Private for OP_LEAVE, OP_LEAVESUB, OP_LEAVESUBLV and OP_LEAVEWRITE */ #define OPpREFCOUNTED 64 /* op_targ carries a refcount */ -/* Private for OP_LEAVE only */ +/* Private for OP_LEAVE and OP_LEAVELOOP */ #define OPpLVALUE 128 /* Do not copy return value */ /* Private for OP_AASSIGN */ |