[packages/perl.git] / perl-5.8.7-bz172739_obz36521.patch

--- perl-5.8.7/util.c.25160	2005-05-30 08:44:15.000000000 -0400
+++ perl-5.8.7/util.c	2005-11-08 18:58:36.000000000 -0500
@@ -1290,6 +1290,8 @@
 	    SV *msg;
 
 	    ENTER;
+	    SAVESPTR(PL_warnhook);
+	    PL_warnhook = Nullsv;
 	    save_re_context();
 	    msg = newSVpvn(message, msglen);
 	    SvFLAGS(msg) |= utf8;
Commit	Line	Data
21155a62 AM	1	--- perl-5.8.7/util.c.25160 2005-05-30 08:44:15.000000000 -0400
	2	+++ perl-5.8.7/util.c 2005-11-08 18:58:36.000000000 -0500
	3	@@ -1290,6 +1290,8 @@
	4	SV *msg;
	5
	6	ENTER;
	7	+ SAVESPTR(PL_warnhook);
	8	+ PL_warnhook = Nullsv;
	9	save_re_context();
	10	msg = newSVpvn(message, msglen);
	11	SvFLAGS(msg) \|= utf8;