1 files changed, 10 insertions, 10 deletions

diff --git a/doop.c b/doop.c
index afbbcdae5d..14b96ed8e0 100644
--- a/doop.c
+++ b/doop.c
@@ -1096,18 +1096,18 @@ Perl_do_vop(pTHX_ I32 optype, SV *sv, SV *left, SV *right)
      * entirely non-UTF-8, and the length of that operand has to be before the
      * first above-FF in the other */
     if (left_utf8 || right_utf8) {
-    if (left_utf8) {
-        if (right_utf8 || rightlen > leftlen) {
-            Perl_croak(aTHX_ fatal_above_ff_msg, PL_op_desc[optype]);
+        if (left_utf8) {
+            if (right_utf8 || rightlen > leftlen) {
+                Perl_croak(aTHX_ fatal_above_ff_msg, PL_op_desc[optype]);
+            }
+            len = rightlen;
         }
-        len = rightlen;
-    }
-    else if (right_utf8) {
-        if (leftlen > rightlen) {
-            Perl_croak(aTHX_ fatal_above_ff_msg, PL_op_desc[optype]);
+        else if (right_utf8) {
+            if (leftlen > rightlen) {
+                Perl_croak(aTHX_ fatal_above_ff_msg, PL_op_desc[optype]);
+            }
+            len = leftlen;
         }
-        len = leftlen;
-    }
 
         Perl_ck_warner_d(aTHX_ packWARN(WARN_DEPRECATED),
                                deprecated_above_ff_msg, PL_op_desc[optype]);