diff options
| author | Karl Williamson <public@khwilliamson.com> | 2012-12-16 11:57:09 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2012-12-16 12:11:07 -0700 |
| commit | f67f9e537710bc816e5e7ba69a559e004ba340dd (patch) | |
| tree | 21c61bad3824c84fbe953d45e0c4c4698ec849fd | |
| parent | bff53399755564f2324c7d6362d84595da6d8db3 (diff) | |
| download | perl-f67f9e537710bc816e5e7ba69a559e004ba340dd.tar.gz | |
mktables, regexec.c: Comments, white-space; no code changes
| -rw-r--r-- | lib/unicore/mktables | 4 | ||||
| -rw-r--r-- | regexec.c | 8 |
2 files changed, 6 insertions, 6 deletions
diff --git a/lib/unicore/mktables b/lib/unicore/mktables index fb11dadc1e..ae8af025ef 100644 --- a/lib/unicore/mktables +++ b/lib/unicore/mktables @@ -13516,7 +13516,7 @@ sub compile_perl() { # All the tables with _X_ in their names are used in defining \X handling, # and are based on the Unicode GCB property. Basically, \X matches: - # CR-LF + # CR LF # | Prepend* Begin Extend* # | . # Begin is: ( Special_Begin | ! Control ) @@ -13524,7 +13524,7 @@ sub compile_perl() { # where Regular_Begin is defined as ( ! Control - Special_Begin ) # Special_Begin is: ( Regional-Indicator+ | Hangul-syllable ) # Extend is: ( Grapheme_Extend | Spacing_Mark ) - # Control is: [ GCB_Control CR LF ] + # Control is: [ GCB_Control | CR | LF ] # Hangul-syllable is: ( T+ | ( L* ( L | ( LVT | ( V | LV ) V* ) T* ) )) foreach my $gcb_name (qw{ L V T LV LVT }) { @@ -4198,8 +4198,8 @@ S_regmatch(pTHX_ regmatch_info *reginfo, char *startpos, regnode *prog) U32 fold_utf8_flags; PL_reg_flags |= RF_tainted; - folder = foldEQ_locale; - fold_array = PL_fold_locale; + folder = foldEQ_locale; + fold_array = PL_fold_locale; fold_utf8_flags = FOLDEQ_UTF8_LOCALE; goto do_exactf; @@ -4464,7 +4464,7 @@ S_regmatch(pTHX_ regmatch_info *reginfo, char *startpos, regnode *prog) Begin is: ( Special_Begin | ! Control ) Special_Begin is: ( Regional-Indicator+ | Hangul-syllable ) Extend is: ( Grapheme_Extend | Spacing_Mark ) - Control is: [ GCB_Control CR LF ] + Control is: [ GCB_Control | CR | LF ] Hangul-syllable is: ( T+ | ( L* ( L | ( LVT | ( V | LV ) V* ) T* ) )) If we create a 'Regular_Begin' = Begin - Special_Begin, then @@ -4506,7 +4506,7 @@ S_regmatch(pTHX_ regmatch_info *reginfo, char *startpos, regnode *prog) /* Utf8: See if is ( CR LF ); already know that locinput < * PL_regeol, so locinput+1 is in bounds */ if ( nextchr == '\r' && locinput+1 < PL_regeol - && UCHARAT(locinput + 1) == '\n') + && UCHARAT(locinput + 1) == '\n') { locinput += 2; } |