diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1998-10-29 17:04:54 -0500 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-10-30 20:08:57 +0000 |
| commit | f5284f61fe8b13877bd529c3798fd763ed884651 (patch) | |
| tree | 8bfc68967a6c489fadc50e542317f03fffaa21f7 /pp.c | |
| parent | 893af57aeb05cb9ca3ec13a262068d56558e4325 (diff) | |
| download | perl-f5284f61fe8b13877bd529c3798fd763ed884651.tar.gz | |
Overloaded <> and deref again
Message-Id: <199810300304.WAA23291@monk.mps.ohio-state.edu>
p4raw-id: //depot/perl@2150
Diffstat (limited to 'pp.c')
| -rw-r--r-- | pp.c | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -211,6 +211,8 @@ PP(pp_rv2gv) if (SvROK(sv)) { wasref: + tryAMAGICunDEREF(to_gv); + sv = SvRV(sv); if (SvTYPE(sv) == SVt_PVIO) { GV *gv = (GV*) sv_newmortal(); @@ -256,6 +258,8 @@ PP(pp_rv2sv) if (SvROK(sv)) { wasref: + tryAMAGICunDEREF(to_sv); + sv = SvRV(sv); switch (SvTYPE(sv)) { case SVt_PVAV: |