summaryrefslogtreecommitdiff
path: root/utf8.c
diff options
context:
space:
mode:
authorKarl Williamson <public@khwilliamson.com>2011-09-24 15:17:33 -0600
committerKarl Williamson <public@khwilliamson.com>2011-10-01 09:58:09 -0600
commitc0249a20a804e6fc6fcddc544485daf1e2dffac8 (patch)
tree9cce04ad159137e682eed5edeb19a534c21ff7ec /utf8.c
parenteb0052d12453d188c7a1927092ec86ea704a0e60 (diff)
downloadperl-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.c4
1 files changed, 0 insertions, 4 deletions
diff --git a/utf8.c b/utf8.c
index bd3aee1fcb..d51d83defb 100644
--- a/utf8.c
+++ b/utf8.c
@@ -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");
}