Skip to content

Commit 9719855

Browse files
author
Branislav Zahradník
committed
[pad] pad_find_my_symbol_sv - replace usage of pad_findmy_sv
1 parent 6b02bbb commit 9719855

File tree

1 file changed

+1
-5
lines changed

1 file changed

+1
-5
lines changed

builtin.c

Lines changed: 1 addition & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -692,15 +692,11 @@ static bool S_cv_is_builtin(pTHX_ CV *cv)
692692
void
693693
Perl_import_builtin_bundle(pTHX_ U16 ver)
694694
{
695-
SV *ampname = sv_newmortal();
696-
697695
for(int i = 0; builtins[i].name; i++) {
698-
sv_setpvf(ampname, "&%s", builtins[i].name);
699-
700696
bool want = (builtins[i].since_ver <= ver);
701697

702698
bool got = false;
703-
PADOFFSET off = pad_findmy_sv(ampname, 0);
699+
PADOFFSET off = pad_find_my_symbol_pv (Perl_Symbol_Table_Code, builtins[i].name, 0);
704700
CV *cv;
705701
if(off != NOT_IN_PAD &&
706702
SvTYPE((cv = (CV *)PL_curpad[off])) == SVt_PVCV &&

0 commit comments

Comments
 (0)