From 081fc587427bbceff63d5141014aee022b3f9dd6 Mon Sep 17 00:00:00 2001 From: Artur Bergman Date: Wed, 2 Apr 2003 13:41:14 +0000 Subject: 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 --- perlapi.h | 2 ++ 1 file changed, 2 insertions(+) (limited to 'perlapi.h') diff --git a/perlapi.h b/perlapi.h index 0b8e6de6bf..e0e388c67d 100644 --- a/perlapi.h +++ b/perlapi.h @@ -504,6 +504,8 @@ END_EXTERN_C #define PL_splitstr (*Perl_Isplitstr_ptr(aTHX)) #undef PL_srand_called #define PL_srand_called (*Perl_Isrand_called_ptr(aTHX)) +#undef PL_stashcache +#define PL_stashcache (*Perl_Istashcache_ptr(aTHX)) #undef PL_statusvalue #define PL_statusvalue (*Perl_Istatusvalue_ptr(aTHX)) #undef PL_statusvalue_vms -- cgit v1.2.1