In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/07075d1946764ff3c2713c8e5a6c5d7e5a7514f2?hp=2259428871a6fb8a1e940f479ee57f0f1bb507d1>
- Log ----------------------------------------------------------------- commit 07075d1946764ff3c2713c8e5a6c5d7e5a7514f2 Author: Karl Williamson <[email protected]> Date: Sat Feb 19 20:52:48 2011 -0700 regexp.h: The length of 'aa' is 2 ----------------------------------------------------------------------- Summary of changes: regexp.h | 3 ++- 1 files changed, 2 insertions(+), 1 deletions(-) diff --git a/regexp.h b/regexp.h index 66473dd..92c9cce 100644 --- a/regexp.h +++ b/regexp.h @@ -319,7 +319,8 @@ get_regex_charset_name(const U32 flags, STRLEN* const lenp) case REGEX_UNICODE_CHARSET: return UNICODE_PAT_MODS; case REGEX_ASCII_RESTRICTED_CHARSET: return ASCII_RESTRICT_PAT_MODS; case REGEX_ASCII_MORE_RESTRICTED_CHARSET: - return ASCII_MORE_RESTRICT_PAT_MODS; + *lenp = 2; + return ASCII_MORE_RESTRICT_PAT_MODS; } return "?"; /* Unknown */ -- Perl5 Master Repository
