diff options
| author | Brian Fraser <fraserbn@gmail.com> | 2011-07-23 18:09:03 -0300 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-10-06 13:01:03 -0700 |
| commit | acc6da14f4c4feb1bf853e4ca73eeb132cc1e48d (patch) | |
| tree | 529c51568d9bbbe4c2030272126f95681d94eaa0 /toke.c | |
| parent | 38d2cf30405659ad117ac9cdb653b35d0242d0b2 (diff) | |
| download | perl-acc6da14f4c4feb1bf853e4ca73eeb132cc1e48d.tar.gz | |
toke.c: S_find_in_my_stash, GV-related UTF8 cleanup
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -3992,20 +3992,20 @@ S_find_in_my_stash(pTHX_ const char *pkgname, STRLEN len) if (len > 2 && (pkgname[len - 2] == ':' && pkgname[len - 1] == ':') && - (gv = gv_fetchpvn_flags(pkgname, len, 0, SVt_PVHV))) + (gv = gv_fetchpvn_flags(pkgname, len, ( UTF ? SVf_UTF8 : 0 ), SVt_PVHV))) { return GvHV(gv); /* Foo:: */ } /* use constant CLASS => 'MyClass' */ - gv = gv_fetchpvn_flags(pkgname, len, 0, SVt_PVCV); + gv = gv_fetchpvn_flags(pkgname, len, UTF ? SVf_UTF8 : 0, SVt_PVCV); if (gv && GvCV(gv)) { SV * const sv = cv_const_sv(GvCV(gv)); if (sv) pkgname = SvPV_const(sv, len); } - return gv_stashpvn(pkgname, len, 0); + return gv_stashpvn(pkgname, len, UTF ? SVf_UTF8 : 0); } /* |