summaryrefslogtreecommitdiff
path: root/gv.c
diff options
context:
space:
mode:
authorsyber <syber@crazypanda.ru>2014-08-08 21:06:10 +0400
committerSteffen Mueller <smueller@cpan.org>2014-08-20 09:12:01 +0200
commitd283e8761b900561d01c1d8807b4a2f19e0c28c1 (patch)
treee91a18cd7610b34726f5054d1988c6c0db79568c /gv.c
parent4e7ebec5b38b722121a7df00ce087bb49f1c6d43 (diff)
downloadperl-d283e8761b900561d01c1d8807b4a2f19e0c28c1.tar.gz
Make S_method_common use gv_stashpvn instead of copypasted cache usage
The previous commit copied the PL_stashcache handling code from S_method_common() to gv_stashpvn(), so now we can call that function directly rather than doing it ourselves.
Diffstat (limited to 'gv.c')
-rw-r--r--gv.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/gv.c b/gv.c
index 47793eff2a..500e24b2c2 100644
--- a/gv.c
+++ b/gv.c
@@ -1360,6 +1360,7 @@ Perl_gv_stashpvn(pTHX_ const char *name, U32 namelen, I32 flags)
(flags & SVf_UTF8) ? HVhek_UTF8 : 0, 0, NULL, 0
);
if (he) return INT2PTR(HV*,SvIVX(HeVAL(he)));
+ else if (flags & GV_CACHE_ONLY) return NULL;
stash = S_stashpvn(aTHX_ name, namelen, flags);
if (stash && namelen) {