From 9fb9dfd8c3b83c6bae50a175d50c256456391d4c Mon Sep 17 00:00:00 2001 From: Tels Date: Thu, 29 Dec 2005 19:32:10 +0100 Subject: [PATCH 1/1] Perl_gv_fetchpv vs. gv_fetchpvn Message-Id: <200512291832.20651@bloodgate.com> p4raw-id: //depot/perl@26532 --- gv.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/gv.c b/gv.c index 8c902b5..8a437f0 100644 --- a/gv.c +++ b/gv.c @@ -688,7 +688,7 @@ Perl_gv_stashpvn(pTHX_ const char *name, U32 namelen, I32 create) tmpbuf[namelen++] = ':'; tmpbuf[namelen++] = ':'; tmpbuf[namelen] = '\0'; - tmpgv = gv_fetchpv(tmpbuf, create, SVt_PVHV); + tmpgv = gv_fetchpvn_flags(tmpbuf, namelen, create, SVt_PVHV); if (tmpbuf != smallbuf) Safefree(tmpbuf); if (!tmpgv) @@ -887,7 +887,7 @@ Perl_gv_fetchpvn_flags(pTHX_ const char *nambeg, STRLEN full_len, I32 flags, if (USE_UTF8_IN_NAMES) SvUTF8_on(err); qerror(err); - stash = GvHV(gv_fetchpv("::", GV_ADDMULTI, SVt_PVHV)); + stash = GvHV(gv_fetchpvn_flags("::", 8, GV_ADDMULTI, SVt_PVHV)); } else return Nullgv; @@ -1235,10 +1235,10 @@ Perl_newIO(pTHX) SvOBJECT_on(io); /* Clear the stashcache because a new IO could overrule a package name */ hv_clear(PL_stashcache); - iogv = gv_fetchpv("FileHandle::", 0, SVt_PVHV); + iogv = gv_fetchpvn_flags("FileHandle::", 12, 0, SVt_PVHV); /* unless exists($main::{FileHandle}) and defined(%main::FileHandle::) */ if (!(iogv && GvHV(iogv) && HvARRAY(GvHV(iogv)))) - iogv = gv_fetchpv("IO::Handle::", TRUE, SVt_PVHV); + iogv = gv_fetchpvn_flags("IO::Handle::", 12, TRUE, SVt_PVHV); SvSTASH_set(io, (HV*)SvREFCNT_inc(GvHV(iogv))); return io; } -- 1.8.3.1