summaryrefslogtreecommitdiff
path: root/toke.c
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2022-03-28 21:24:33 -0600
committerKarl Williamson <khw@cpan.org>2022-04-01 09:19:54 -0600
commit34c1445fe76d859fdb465acc6150adb2f73213d8 (patch)
tree22d14de8d1364cb1658946df883902854e894f03 /toke.c
parenta4677c2bd1ef819c7446fcfe811cbf063f013527 (diff)
downloadperl-34c1445fe76d859fdb465acc6150adb2f73213d8.tar.gz
toke.c: Rmv redundant conditional
To get to the removed conditional, it has already been checked for being true.
Diffstat (limited to 'toke.c')
-rw-r--r--toke.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/toke.c b/toke.c
index c2b55753ef..dbb1e43988 100644
--- a/toke.c
+++ b/toke.c
@@ -11360,10 +11360,10 @@ Perl_scan_str(pTHX_ char *start, int keep_bracketed_quoted, int keep_delims, int
else {
open_delim_code = close_delim_code =
utf8_to_uvchr_buf((U8*)s, (U8*)PL_bufend, &delim_byte_len);
- if (UTF && UNLIKELY(! is_grapheme((U8 *) start,
- (U8 *) s,
- (U8 *) PL_bufend,
- open_delim_code)))
+ if (UNLIKELY(! is_grapheme((U8 *) start,
+ (U8 *) s,
+ (U8 *) PL_bufend,
+ open_delim_code)))
{
yyerror(non_grapheme_msg);
}