This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
op.c: Move #endif
authorKarl Williamson <khw@cpan.org>
Tue, 12 Nov 2019 00:12:45 +0000 (17:12 -0700)
committerKarl Williamson <khw@cpan.org>
Tue, 12 Nov 2019 03:55:39 +0000 (20:55 -0700)
Otherwise this fails to compile on EBCDIC

op.c

diff --git a/op.c b/op.c
index 41824a4..499e73b 100644 (file)
--- a/op.c
+++ b/op.c
@@ -6909,11 +6909,12 @@ S_pmtrans(pTHX_ OP *o, OP *expr, OP *repl)
 #  ifdef UV_IS_QUAD
                                                     ,
         ( ((UV) 1U << (6 * UTF_ACCUMULATION_SHIFT)))
-
 #  endif
-#endif
+
     };
 
+#endif
+
     PERL_ARGS_ASSERT_PMTRANS;
 
     PL_hints |= HINT_BLOCK_SCOPE;