diff options
| author | Artur Bergman <sky@nanisky.com> | 2003-04-02 13:41:14 +0000 |
|---|---|---|
| committer | Artur Bergman <sky@nanisky.com> | 2003-04-02 13:41:14 +0000 |
| commit | 081fc587427bbceff63d5141014aee022b3f9dd6 (patch) | |
| tree | 40ce68e8875794031a9a20550881c9896268eeea /intrpvar.h | |
| parent | 6ab58e4d47c419dca1df070f2fa15786b3285750 (diff) | |
| download | perl-081fc587427bbceff63d5141014aee022b3f9dd6.tar.gz | |
Add packname->stash cache before the check if a packname is a
filehandle or a package, it works because only packnames
that have been resolved to stashes are added to the cache,
and when a newIO is created we clean the cache.
Results in roughly 1.8 speed increase for class->method()
calls.
p4raw-id: //depot/perl@19133
Diffstat (limited to 'intrpvar.h')
| -rw-r--r-- | intrpvar.h | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/intrpvar.h b/intrpvar.h index 61d48a2988..db7c19098b 100644 --- a/intrpvar.h +++ b/intrpvar.h @@ -506,6 +506,8 @@ PERLVAR(Isignals, U32) /* Using which pre-5.8 signals */ PERLVAR(IDBassertion, SV *) +PERLVAR(Istashcache, HV *) /* Cache to speed up S_method_common */ + /* Don't forget to add your variable also to perl_clone()! */ /* New variables must be added to the very end, before this comment, |