1 files changed, 1 insertions, 1 deletions
diff --git a/perl.c b/perl.c
index f808af8ec9..fbf3e86afc 100644
--- a/perl.c
+++ b/perl.c
@@ -2587,7 +2587,7 @@ Perl_call_pv(pTHX_ const char *sub_name, I32 flags)
 {
     PERL_ARGS_ASSERT_CALL_PV;
 
-    return call_sv(MUTABLE_SV(get_cv(sub_name, TRUE)), flags);
+    return call_sv(MUTABLE_SV(get_cv(sub_name, GV_ADD)), flags);
 }
 
 /*