In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/b953e60c2880b16b41fe537533d7b46247f12778?hp=570dedd44da3a23aa548d78e168df662fd35fce8>
- Log -----------------------------------------------------------------
commit b953e60c2880b16b41fe537533d7b46247f12778
Author: Karl Williamson <pub...@khwilliamson.com>
Date: Sat Feb 12 13:38:53 2011 -0700
Silence win32 smoke compiler warning
M toke.c
commit 45219de63dc66b0124c7c8360886e8323e82994f
Author: Karl Williamson <pub...@khwilliamson.com>
Date: Sat Feb 12 13:38:16 2011 -0700
Silence util.c compiler warning from win32 smokes
M util.c
-----------------------------------------------------------------------
Summary of changes:
toke.c | 4 ++--
util.c | 2 +-
2 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/toke.c b/toke.c
index 8dadf61..113632e 100644
--- a/toke.c
+++ b/toke.c
@@ -2607,8 +2607,8 @@ S_scan_const(pTHX_ char *start)
register char *d = SvPVX(sv); /* destination for copies */
bool dorange = FALSE; /* are we in a translit range?
*/
bool didrange = FALSE; /* did we just finish a range?
*/
- I32 has_utf8 = FALSE; /* Output constant is UTF8 */
- I32 this_utf8 = UTF; /* Is the source string assumed
+ bool has_utf8 = FALSE; /* Output constant is UTF8 */
+ bool this_utf8 = cBOOL(UTF); /* Is the source string assumed
to be UTF8? But, this can
show as true when the source
isn't utf8, as for example
diff --git a/util.c b/util.c
index 03e17b3..22940dd 100644
--- a/util.c
+++ b/util.c
@@ -3844,7 +3844,7 @@ Perl_my_fflush_all(pTHX)
}
void
-Perl_report_wrongway_fh(pTHX_ const GV *gv, char have)
+Perl_report_wrongway_fh(pTHX_ const GV *gv, const char have)
{
if (ckWARN(WARN_IO)) {
const char * const name
--
Perl5 Master Repository
