diff options
| author | Florian Ragwitz <rafl@debian.org> | 2010-10-15 19:34:52 +0200 |
|---|---|---|
| committer | Florian Ragwitz <rafl@debian.org> | 2010-10-15 19:34:52 +0200 |
| commit | 474af99058f4c0fc3b80d73763da5b29c1ff8c66 (patch) | |
| tree | 6eceda57ddf0203e541cbfc369d77e837c47d056 /pp.c | |
| parent | a12cf05f80a65e40fe339b086ab2d10e18d838c1 (diff) | |
| download | perl-474af99058f4c0fc3b80d73763da5b29c1ff8c66.tar.gz | |
Make splice invoke set magic
Diffstat (limited to 'pp.c')
| -rw-r--r-- | pp.c | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -5347,6 +5347,10 @@ PP(pp_splice) *MARK = &PL_sv_undef; Safefree(tmparyval); } + + if (SvMAGICAL(ary)) + mg_set(MUTABLE_SV(ary)); + SP = MARK; RETURN; } |