doop.c: White-space only
authorKarl Williamson <khw@cpan.org>
Tue, 19 Dec 2017 23:14:01 +0000 (16:14 -0700)
committerKarl Williamson <khw@cpan.org>
Fri, 19 Jan 2018 18:20:11 +0000 (11:20 -0700)
Indent to correspond with the new block placed by the previous commit.

doop.c

diff --git a/doop.c b/doop.c
index afbbcda..14b96ed 100644 (file)
--- 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]);