diff options
author | syber <syber@crazypanda.ru> | 2014-08-08 21:06:10 +0400 |
---|---|---|
committer | Steffen Mueller <smueller@cpan.org> | 2014-08-20 09:12:01 +0200 |
commit | d283e8761b900561d01c1d8807b4a2f19e0c28c1 (patch) | |
tree | e91a18cd7610b34726f5054d1988c6c0db79568c /gv.c | |
parent | 4e7ebec5b38b722121a7df00ce087bb49f1c6d43 (diff) | |
download | perl-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.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -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) { |