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 6b02bbb commit 9719855Copy full SHA for 9719855
builtin.c
@@ -692,15 +692,11 @@ static bool S_cv_is_builtin(pTHX_ CV *cv)
692
void
693
Perl_import_builtin_bundle(pTHX_ U16 ver)
694
{
695
- SV *ampname = sv_newmortal();
696
-
697
for(int i = 0; builtins[i].name; i++) {
698
- sv_setpvf(ampname, "&%s", builtins[i].name);
699
700
bool want = (builtins[i].since_ver <= ver);
701
702
bool got = false;
703
- PADOFFSET off = pad_findmy_sv(ampname, 0);
+ PADOFFSET off = pad_find_my_symbol_pv (Perl_Symbol_Table_Code, builtins[i].name, 0);
704
CV *cv;
705
if(off != NOT_IN_PAD &&
706
SvTYPE((cv = (CV *)PL_curpad[off])) == SVt_PVCV &&
0 commit comments