This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Silence util.c compiler warning from win32 smokes
authorKarl Williamson <public@khwilliamson.com>
Sat, 12 Feb 2011 20:38:16 +0000 (13:38 -0700)
committerKarl Williamson <public@khwilliamson.com>
Mon, 14 Feb 2011 03:45:38 +0000 (20:45 -0700)
util.c

diff --git a/util.c b/util.c
index 03e17b3..22940dd 100644 (file)
--- 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