This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Three variables in S_scan_trans only hold flags for op_private, so can
[perl5.git] / toke.c
diff --git a/toke.c b/toke.c
index 72a37c4..431938f 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -11074,9 +11074,9 @@ S_scan_trans(pTHX_ char *start)
     register char* s;
     OP *o;
     short *tbl;
-    I32 squash;
-    I32 del;
-    I32 complement;
+    U8 squash;
+    U8 del;
+    U8 complement;
 #ifdef PERL_MAD
     char *modstart;
 #endif