Blame perl-5.8.7-bz172739_obz36521.patch
|
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;
|