diff options
| author | Abhijit Menon-Sen <ams@wiw.org> | 2001-08-07 14:40:54 +0530 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-08-07 13:52:41 +0000 |
| commit | f5f1d18ea865e75add13fe3664f46a1d86cc28c5 (patch) | |
| tree | 7b71eb8433fe7fe4f7e3b203a504bffa816bebe4 /pp_hot.c | |
| parent | aefff11f7e121678e7cd0c4ebdd14e491a765ed2 (diff) | |
| download | perl-f5f1d18ea865e75add13fe3664f46a1d86cc28c5.tar.gz | |
Re: [ID 20010806.006] Can't read coderef from tied variable
Message-ID: <20010807091054.H526@lustre.dyn.wiw.org>
p4raw-id: //depot/perl@11602
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -2444,6 +2444,8 @@ PP(pp_entersub) } if (SvGMAGICAL(sv)) { mg_get(sv); + if (SvROK(sv)) + goto got_rv; sym = SvPOKp(sv) ? SvPVX(sv) : Nullch; } else @@ -2455,6 +2457,7 @@ PP(pp_entersub) cv = get_cv(sym, TRUE); break; } + got_rv: { SV **sp = &sv; /* Used in tryAMAGICunDEREF macro. */ tryAMAGICunDEREF(to_cv); |