diff options
author | Karl Williamson <khw@cpan.org> | 2017-12-19 16:14:01 -0700 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2018-01-19 11:20:11 -0700 |
commit | 3f04a46618bddd5191b797b7dac053fa581a91eb (patch) | |
tree | 29529c4223cea8acd2a2332d11ed2b3789dbf669 | |
parent | ba52ce15fe5ca68de1be69e394f41ccb48a731cc (diff) | |
download | perl-3f04a46618bddd5191b797b7dac053fa581a91eb.tar.gz |
doop.c: White-space only
Indent to correspond with the new block placed by the previous commit.
-rw-r--r-- | doop.c | 20 |
1 files changed, 10 insertions, 10 deletions
@@ -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]); |