Emit experimental::builtin warnings from the builtin function callchecker

1 files changed, 8 insertions, 0 deletions

diff --git a/builtin.c b/builtin.c
index 1e364f34a3..22fafb87f7 100644
--- a/builtin.c
+++ b/builtin.c
@@ -50,6 +50,10 @@ static OP *ck_builtin_const(pTHX_ OP *entersubop, GV *namegv, SV *ckobj)
 {
     const struct BuiltinFuncDescriptor *builtin = NUM2PTR(const struct BuiltinFuncDescriptor *, SvUV(ckobj));
 
+    Perl_ck_warner_d(aTHX_
+            packWARN(WARN_EXPERIMENTAL__BUILTIN),
+            "Built-in function '%s' is experimental", builtin->name);
+
     SV *prototype = newSVpvs("");
     SAVEFREESV(prototype);
 
@@ -145,6 +149,10 @@ static OP *ck_builtin_func1(pTHX_ OP *entersubop, GV *namegv, SV *ckobj)
 {
     const struct BuiltinFuncDescriptor *builtin = NUM2PTR(const struct BuiltinFuncDescriptor *, SvUV(ckobj));
 
+    Perl_ck_warner_d(aTHX_
+            packWARN(WARN_EXPERIMENTAL__BUILTIN),
+            "Built-in function '%s' is experimental", builtin->name);
+
     SV *prototype = newSVpvs("$");
     SAVEFREESV(prototype);