The #16182 radiates U32ness.

p4raw-id: //depot/perl@16185

1 files changed, 1 insertions, 1 deletions

diff --git a/toke.c b/toke.c
index cf04cfa68e..7d37b39bf4 100644
--- a/toke.c
+++ b/toke.c
@@ -6247,7 +6247,7 @@ S_scan_ident(pTHX_ register char *s, register char *send, char *dest, STRLEN des
 }
 
 void
-Perl_pmflag(pTHX_ U16 *pmfl, int ch)
+Perl_pmflag(pTHX_ U32* pmfl, int ch)
 {
     if (ch == 'i')
 	*pmfl |= PMf_FOLD;