summaryrefslogtreecommitdiff
path: root/toke.c
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2022-02-12 16:13:29 -0700
committerKarl Williamson <khw@cpan.org>2022-03-19 23:17:51 -0600
commitcf398451a5926ec75c6c5773c571b66dd670c2cb (patch)
treeae0ccf56361794e1a8d8283f5c197c7ea775ab25 /toke.c
parent72358bbed002bb654b9158224ec350252ac8716e (diff)
downloadperl-cf398451a5926ec75c6c5773c571b66dd670c2cb.tar.gz
toke.c: Rmv unnecessary conditionals
Cheaper to just redo a simple assignment than to test if you've already done it and skipping it if you had.
Diffstat (limited to 'toke.c')
-rw-r--r--toke.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/toke.c b/toke.c
index a3dab6fdf4..04893559be 100644
--- a/toke.c
+++ b/toke.c
@@ -11440,7 +11440,7 @@ Perl_scan_str(pTHX_ char *start, int keep_bracketed_quoted, int keep_delims, int
break;
}
}
- else if (!d_is_utf8 && !UTF8_IS_INVARIANT((U8)*s) && UTF) {
+ else if (! UTF8_IS_INVARIANT((U8)*s) && UTF) {
d_is_utf8 = TRUE;
}
@@ -11474,7 +11474,7 @@ Perl_scan_str(pTHX_ char *start, int keep_bracketed_quoted, int keep_delims, int
break;
else if (*(U8 *) s == PL_multi_open)
brackets++;
- else if (!d_is_utf8 && !UTF8_IS_INVARIANT((U8)*s) && UTF)
+ else if (! UTF8_IS_INVARIANT((U8)*s) && UTF)
d_is_utf8 = TRUE;
*to = *s;
}