From 3f04a46618bddd5191b797b7dac053fa581a91eb Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Tue, 19 Dec 2017 16:14:01 -0700 Subject: doop.c: White-space only Indent to correspond with the new block placed by the previous commit. --- doop.c | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) (limited to 'doop.c') 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]); -- cgit v1.2.1