diff options
Diffstat (limited to 'regen')
| -rw-r--r-- | regen/mk_PL_charclass.pl | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/regen/mk_PL_charclass.pl b/regen/mk_PL_charclass.pl index d23970d221..5a073c6ea3 100644 --- a/regen/mk_PL_charclass.pl +++ b/regen/mk_PL_charclass.pl @@ -47,7 +47,6 @@ my @properties = qw( XDIGIT VERTSPACE IS_IN_SOME_FOLD - BACKSLASH_FOO_LBRACE_IS_META ); # Read in the case fold mappings. @@ -236,13 +235,6 @@ for my $ord (0..255) { $re = qr/\p{Is_Non_Final_Fold}/; } elsif ($name eq 'IS_IN_SOME_FOLD') { $re = qr/\p{_Perl_Any_Folds}/; - } elsif ($name eq 'BACKSLASH_FOO_LBRACE_IS_META') { - - # This is true for FOO where FOO is the varying character in: - # \a{, \b{, \c{, ... - # and the sequence has non-literal meaning to Perl; so it is true - # for 'x' because \x{ is special, but not 'a' because \a{ isn't. - $re = qr/[gkNopPx]/; } else { # The remainder have the same name and values as Unicode $re = eval "qr/\\p{$name}/"; use Carp; |