Change 11673 by jhi@alpha on 2001/08/15 03:16:14
Subject: [PATCH perl@11660] Warning incorrectly reported without -w
From: Rafael Garcia-Suarez <[EMAIL PROTECTED]>
Date: Tue, 14 Aug 2001 21:23:27 +0200
Message-ID: <20010814212327.A1919@rafael>
Affected files ...
... //depot/perl/doio.c#167 edit
Differences ...
==== //depot/perl/doio.c#167 (text) ====
Index: perl/doio.c
--- perl/doio.c.~1~ Tue Aug 14 21:30:05 2001
+++ perl/doio.c Tue Aug 14 21:30:05 2001
@@ -1222,7 +1222,9 @@
sv_utf8_upgrade(sv = sv_mortalcopy(sv));
}
else if (DO_UTF8(sv)) {
- if (!sv_utf8_downgrade((sv = sv_mortalcopy(sv)), TRUE)) {
+ if (!sv_utf8_downgrade((sv = sv_mortalcopy(sv)), TRUE)
+ && ckWARN(WARN_UTF8))
+ {
Perl_warner(aTHX_ WARN_UTF8, "Wide character in print");
}
}
End of Patch.
