use cv_set_call_checker_flags() where possible

[perl5.git] / ext / Devel-Peek / Peek.xs

diff --git a/ext/Devel-Peek/Peek.xs b/ext/Devel-Peek/Peek.xs
index cde3e51..8a8c0b9 100644 (file)
--- a/ext/Devel-Peek/Peek.xs
+++ b/ext/Devel-Peek/Peek.xs
@@ -444,7 +444,7 @@ BOOT:
 {
     CV * const cv = get_cvn_flags("Devel::Peek::Dump", 17, 0);
     assert(cv);
-    cv_set_call_checker(cv, S_ck_dump, (SV *)cv);
+    cv_set_call_checker_flags(cv, S_ck_dump, (SV *)cv, 0);
     Perl_custom_op_register(aTHX_ S_pp_dump, &my_xop);
 }