This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix tr/// compilation on VMS
[perl5.git] / op.c
diff --git a/op.c b/op.c
index db01996..593b88a 100644 (file)
--- a/op.c
+++ b/op.c
@@ -6908,7 +6908,7 @@ S_pmtrans(pTHX_ OP *o, OP *expr, OP *repl)
 
 #  ifdef UV_IS_QUAD
                                                     ,
-        (     (1UL << (6 * UTF_ACCUMULATION_SHIFT)))
+        ( ((UV) 1U << (6 * UTF_ACCUMULATION_SHIFT)))
 
 #  endif
 #endif