We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent c8cac67 commit d56c1caCopy full SHA for d56c1ca
regcomp.c
@@ -14565,11 +14565,8 @@ S_get_fq_name(pTHX_
14565
const HV * pkg = (IN_PERL_COMPILETIME)
14566
? PL_curstash
14567
: CopSTASH(PL_curcop);
14568
- const char* pkgname = HvNAME(pkg);
14569
14570
- sv_catpvf(fq_name, "%" UTF8f,
14571
- UTF8fARG(is_utf8, strlen(pkgname), pkgname));
14572
- sv_catpvs(fq_name, "::");
+ sv_catpvf(fq_name, "%" HvNAMEf "::", HvNAMEfARG(pkg));
14573
}
14574
14575
sv_catpvf(fq_name, "%" UTF8f,
0 commit comments