diff options
author | Karl Williamson <khw@cpan.org> | 2022-03-28 21:24:33 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2022-04-01 09:19:54 -0600 |
commit | 34c1445fe76d859fdb465acc6150adb2f73213d8 (patch) | |
tree | 22d14de8d1364cb1658946df883902854e894f03 /toke.c | |
parent | a4677c2bd1ef819c7446fcfe811cbf063f013527 (diff) | |
download | perl-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.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -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); } |