diff options
| author | Chip Salzenberg <chip@atlantic.net> | 1996-12-24 09:07:00 +1200 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1996-12-24 09:07:00 +1200 |
| commit | 724421654fcf33f3acf0a7b8f4356b9255c9265a (patch) | |
| tree | d012d222503a4083d0ede9c85a41b65fdb79bd1a /sv.c | |
| parent | 9a089a51dfdd5e97da27c26fc8f4b6089cd8d22d (diff) | |
| download | perl-724421654fcf33f3acf0a7b8f4356b9255c9265a.tar.gz | |
[revert some function caching changes]perl-5.003_15
[remove] some function caching changes that were supposed to be
improvements, but weren't.
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 5 |
1 files changed, 1 insertions, 4 deletions
@@ -1949,14 +1949,11 @@ register SV *sstr; (CvROOT(cv) || CvXSUB(cv)) ) warn("Subroutine %s redefined", GvENAME((GV*)dstr)); - if (SvREFCNT(cv) == 1) - SvFAKE_on(cv); + SvFAKE_on(cv); } } - sub_generation++; if (GvCV(dstr) != (CV*)sref) { GvCV(dstr) = (CV*)sref; - GvCVGEN(dstr) = 0; /* Switch off cacheness. */ GvASSUMECV_on(dstr); } if (curcop->cop_stash != GvSTASH(dstr)) |