diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-06-16 06:02:23 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-06-16 20:17:52 -0700 |
| commit | ad37a74e7dc5e204efc84791373a791f142ac7b4 (patch) | |
| tree | 26f705e25b49e91c10c0ca0dff9b7c8368c0d041 /pp_hot.c | |
| parent | 7393165ef277e989fdf63df19ea17698bf83d8db (diff) | |
| download | perl-ad37a74e7dc5e204efc84791373a791f142ac7b4.tar.gz | |
Stop lvalue subs from copying read-only scalars
They were only doing so in reference context (subroutine args,
for(...)).
Explicit return already worked, but only because I didn’t write it
well. I’m in the process of trying to merge the two.
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 4 |
1 files changed, 1 insertions, 3 deletions
@@ -2693,9 +2693,7 @@ PP(pp_leavesublv) for (mark = newsp + 1; mark <= SP; mark++) { if (SvTEMP(*mark)) NOOP; - else if (SvFLAGS(*mark) & SVs_PADTMP - || (SvFLAGS(*mark) & (SVf_READONLY|SVf_FAKE)) - == SVf_READONLY) + else if (SvFLAGS(*mark) & SVs_PADTMP) *mark = sv_mortalcopy(*mark); else { /* Can be a localized value subject to deletion. */ |