diff options
| author | Robin Barker <RMBarker@cpan.org> | 2003-04-29 18:30:23 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-05-01 11:09:42 +0000 |
| commit | 5e6396ae8c4307a3de4655988c007bee1e933079 (patch) | |
| tree | 98a2bdfad05a1b95c884f35cd1f4ce947af6e0d1 /pp_hot.c | |
| parent | 51dc4578288f8c29eb2ac4c48011b5b854d10317 (diff) | |
| download | perl-5e6396ae8c4307a3de4655988c007bee1e933079.tar.gz | |
RE: perl@19333
Message-ID: <533D273D4014D411AB1D00062938C4D9040464F7@hotel.npl.co.uk>
p4raw-id: //depot/perl@19373
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -2939,7 +2939,7 @@ S_method_common(pTHX_ SV* meth, U32* hashp) HE* he; he = hv_fetch_ent(PL_stashcache, sv, 0, 0); if (he) { - stash = (HV*)SvIV(HeVAL(he)); + stash = INT2PTR(HV*,SvIV(HeVAL(he))); goto fetch; } } @@ -2965,7 +2965,7 @@ S_method_common(pTHX_ SV* meth, U32* hashp) if (!stash) packsv = sv; else { - SV* ref = newSViv((IV)stash); + SV* ref = newSViv(PTR2IV(stash)); hv_store(PL_stashcache, packname, packlen, ref, 0); } goto fetch; |