jvdias 5f09ed2
--- perl-5.8.7/util.c.25160	2005-05-30 08:44:15.000000000 -0400
jvdias 5f09ed2
+++ perl-5.8.7/util.c	2005-11-08 18:58:36.000000000 -0500
jvdias 5f09ed2
@@ -1290,6 +1290,8 @@
jvdias 5f09ed2
 	    SV *msg;
jvdias 5f09ed2
 
jvdias 5f09ed2
 	    ENTER;
jvdias 5f09ed2
+	    SAVESPTR(PL_warnhook);
jvdias 5f09ed2
+	    PL_warnhook = Nullsv;
jvdias 5f09ed2
 	    save_re_context();
jvdias 5f09ed2
 	    msg = newSVpvn(message, msglen);
jvdias 5f09ed2
 	    SvFLAGS(msg) |= utf8;