$SIG{__WARN__} = sub { goto &foo } could recurse infinitely

p4raw-id: //depot/perl@25160

1 files changed, 2 insertions, 0 deletions

diff --git a/util.c b/util.c
index 74f5944269..4f1a8e89da 100644
--- a/util.c
+++ b/util.c
@@ -1278,6 +1278,8 @@ Perl_vwarn(pTHX_ const char* pat, va_list *args)
 	    SV *msg;
 
 	    ENTER;
+	    SAVESPTR(PL_warnhook);
+	    PL_warnhook = Nullsv;
 	    save_re_context();
 	    msg = newSVpvn(message, msglen);
 	    SvFLAGS(msg) |= utf8;