This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
utf8.c: Add cast to suppress a warning message
authorKarl Williamson <khw@cpan.org>
Fri, 29 Jan 2016 17:32:26 +0000 (10:32 -0700)
committerKarl Williamson <khw@cpan.org>
Fri, 29 Jan 2016 19:20:20 +0000 (12:20 -0700)
This is showing up in HP-UX, e.g.
http://perl5.test-smoke.org/report/43423

utf8.c

diff --git a/utf8.c b/utf8.c
index 6ec9c6b..2c2ef48 100644 (file)
--- a/utf8.c
+++ b/utf8.c
@@ -38,7 +38,7 @@ static const char unees[] =
 static const char cp_above_legal_max[] =
  "Use of code point 0x%"UVXf" is deprecated; the permissible max is 0x%"UVXf"";
 
-#define MAX_NON_DEPRECATED_CP (IV_MAX)
+#define MAX_NON_DEPRECATED_CP ((UV) (IV_MAX))
 
 /*
 =head1 Unicode Support