summaryrefslogtreecommitdiff
path: root/doop.c
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2017-12-19 16:14:01 -0700
committerKarl Williamson <khw@cpan.org>2018-01-19 11:20:11 -0700
commit3f04a46618bddd5191b797b7dac053fa581a91eb (patch)
tree29529c4223cea8acd2a2332d11ed2b3789dbf669 /doop.c
parentba52ce15fe5ca68de1be69e394f41ccb48a731cc (diff)
downloadperl-3f04a46618bddd5191b797b7dac053fa581a91eb.tar.gz
doop.c: White-space only
Indent to correspond with the new block placed by the previous commit.
Diffstat (limited to 'doop.c')
-rw-r--r--doop.c20
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]);