From 7f7f7c758a29065236d74916b23e6b92d3445943 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Branislav=20Zahradn=C3=ADk?= Date: Sun, 1 Dec 2024 18:42:19 +0100 Subject: [PATCH] [pad] pad_find_my_symbol_sv - replace usage of pad_findmy_sv --- builtin.c | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/builtin.c b/builtin.c index ac9f5b9bb857..02879ffbf05b 100644 --- a/builtin.c +++ b/builtin.c @@ -692,15 +692,11 @@ static bool S_cv_is_builtin(pTHX_ CV *cv) void Perl_import_builtin_bundle(pTHX_ U16 ver) { - SV *ampname = sv_newmortal(); - for(int i = 0; builtins[i].name; i++) { - sv_setpvf(ampname, "&%s", builtins[i].name); - bool want = (builtins[i].since_ver <= ver); bool got = false; - PADOFFSET off = pad_findmy_sv(ampname, 0); + PADOFFSET off = pad_find_my_symbol_pv (Perl_Symbol_Table_Code, builtins[i].name, 0); CV *cv; if(off != NOT_IN_PAD && SvTYPE((cv = (CV *)PL_curpad[off])) == SVt_PVCV &&