Stop undef &foo from temporarily anonymising

Instead of setting aside the name, calling cv_undef, and then naming
the sub anew, just pass a flag to tell cv_undef not to unname it.

1 files changed, 4 insertions, 0 deletions

diff --git a/cv.h b/cv.h
index c1f4456e11..8ba1c5cbeb 100644
--- a/cv.h
+++ b/cv.h
@@ -270,6 +270,10 @@ typedef OP *(*Perl_call_checker)(pTHX_ OP *, GV *, SV *);
 
 #define CALL_CHECKER_REQUIRE_GV	MGf_REQUIRE_GV
 
+#ifdef PERL_CORE
+# define CV_UNDEF_KEEP_NAME	1
+#endif
+
 /*
  * Local variables:
  * c-indentation-style: bsd