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 /sv.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 'sv.c')
| -rw-r--r-- | sv.c | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -4047,6 +4047,9 @@ sv_2cv(SV *sv, HV **st, GV **gvp, I32 lref) if (SvGMAGICAL(sv)) mg_get(sv); if (SvROK(sv)) { + SV **sp = &sv; /* Used in tryAMAGICunDEREF macro. */ + tryAMAGICunDEREF(to_cv); + cv = (CV*)SvRV(sv); if (SvTYPE(cv) != SVt_PVCV) croak("Not a subroutine reference"); |