diff options
author | Karl Williamson <public@khwilliamson.com> | 2011-09-24 15:17:33 -0600 |
---|---|---|
committer | Karl Williamson <public@khwilliamson.com> | 2011-10-01 09:58:09 -0600 |
commit | c0249a20a804e6fc6fcddc544485daf1e2dffac8 (patch) | |
tree | 9cce04ad159137e682eed5edeb19a534c21ff7ec /utf8.c | |
parent | eb0052d12453d188c7a1927092ec86ea704a0e60 (diff) | |
download | perl-c0249a20a804e6fc6fcddc544485daf1e2dffac8.tar.gz |
utf8.c: Remove (mostly) redundant test
The swashes already have the underscore, so this test is redundant. It
does save some time for this character to avoid having to go out and
load the swash, but why just the underscore? In fact an earlier commit
changed the macro that most people should use to access this function to
not even call it for the underscore.
Diffstat (limited to 'utf8.c')
-rw-r--r-- | utf8.c | 4 |
1 files changed, 0 insertions, 4 deletions
@@ -1516,8 +1516,6 @@ Perl_is_utf8_idcont(pTHX_ const U8 *p) PERL_ARGS_ASSERT_IS_UTF8_IDCONT; - if (*p == '_') - return TRUE; return is_utf8_common(p, &PL_utf8_idcont, "IdContinue"); } @@ -1528,8 +1526,6 @@ Perl_is_utf8_xidcont(pTHX_ const U8 *p) PERL_ARGS_ASSERT_IS_UTF8_XIDCONT; - if (*p == '_') - return TRUE; return is_utf8_common(p, &PL_utf8_idcont, "XIdContinue"); } |