diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-04-18 22:25:30 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-04-18 22:43:13 -0700 |
| commit | d2d95e1390fa8da3e5c59558c1a326336e57c9dc (patch) | |
| tree | e98716bf46c202b0e28bcc61ac4b6264200e269b /pp.c | |
| parent | 8cc10af2cb907db12330ae60222a46d9096065d4 (diff) | |
| download | perl-d2d95e1390fa8da3e5c59558c1a326336e57c9dc.tar.gz | |
Make push, etc., work on tied scalars
I broke this with commit d4fc441
Diffstat (limited to 'pp.c')
| -rw-r--r-- | pp.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -5400,6 +5400,7 @@ static AV * S_deref_plain_array(pTHX_ AV *ary) { if (SvTYPE(ary) == SVt_PVAV) return ary; + SvGETMAGIC((SV *)ary); if (!SvROK(ary) || SvTYPE(SvRV(ary)) != SVt_PVAV) Perl_die(aTHX_ "Not an ARRAY reference"); else if (SvOBJECT(SvRV(ary))) |