diff options
| author | Karl Williamson <public@khwilliamson.com> | 2012-03-28 19:23:19 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2012-05-22 08:23:10 -0600 |
| commit | c6e8e4a93db00ba34769d5e055b9618f2779e205 (patch) | |
| tree | e3f02c34867b38862eec58e752931b7db3bab532 /regen | |
| parent | b1887806ae35f26eca61cddabd3ee38bb98fec27 (diff) | |
| download | perl-c6e8e4a93db00ba34769d5e055b9618f2779e205.tar.gz | |
mk_PL_charclass.pl: Don't use \w, \s
Now that these are partially compiled into the Perl core, we have a
chicken and egg problem if one changes. Instead, use the \p{}
equivalent which doesn't have this problem.
Diffstat (limited to 'regen')
| -rw-r--r-- | regen/mk_PL_charclass.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/regen/mk_PL_charclass.pl b/regen/mk_PL_charclass.pl index b903fbe1f0..4554c3bd53 100644 --- a/regen/mk_PL_charclass.pl +++ b/regen/mk_PL_charclass.pl @@ -126,15 +126,15 @@ for my $ord (0..255) { # just \pP outside it. $re = qr/\p{Punct}|[^\P{Symbol}\P{ASCII}]/; } elsif ($name eq 'CHARNAME_CONT') {; - $re = qr/[-\w ():\xa0]/; + $re = qr/[-\p{XPosixWord} ():\xa0]/; } elsif ($name eq 'SPACE') {; - $re = qr/\s/; + $re = qr/\p{XPerlSpace}/; } elsif ($name eq 'IDFIRST') { $re = qr/[_\p{Alpha}]/; } elsif ($name eq 'PSXSPC') { $re = qr/[\v\p{Space}]/; } elsif ($name eq 'WORDCHAR') { - $re = qr/\w/; + $re = qr/\p{XPosixWord}/; } elsif ($name eq 'ALNUMC') { # Like \w, but no underscore $re = qr/\p{Alnum}/; |