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 /embedvar.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 'embedvar.h')
| -rw-r--r-- | embedvar.h | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/embedvar.h b/embedvar.h index 6e1d615974..920b33148c 100644 --- a/embedvar.h +++ b/embedvar.h @@ -373,6 +373,7 @@ #define PL_sort_RealCmp (vTHX->Isort_RealCmp) #define PL_splitstr (vTHX->Isplitstr) #define PL_srand_called (vTHX->Isrand_called) +#define PL_stashcache (vTHX->Istashcache) #define PL_statusvalue (vTHX->Istatusvalue) #define PL_statusvalue_vms (vTHX->Istatusvalue_vms) #define PL_stderrgv (vTHX->Istderrgv) @@ -665,6 +666,7 @@ #define PL_Isort_RealCmp PL_sort_RealCmp #define PL_Isplitstr PL_splitstr #define PL_Isrand_called PL_srand_called +#define PL_Istashcache PL_stashcache #define PL_Istatusvalue PL_statusvalue #define PL_Istatusvalue_vms PL_statusvalue_vms #define PL_Istderrgv PL_stderrgv |