diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-09-22 17:54:12 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-09-22 18:50:50 -0700 |
| commit | 5255171e6cd0accee6f76ea2980e32b3b5b8e171 (patch) | |
| tree | f198188a949f401983d4493ed514365d2c09213c /regen | |
| parent | d8e299374017857bcc055c31b6d4a808fb862100 (diff) | |
| download | perl-5255171e6cd0accee6f76ea2980e32b3b5b8e171.tar.gz | |
[perl #94490] const fold should not trigger special split " "
The easiest way to fix this was to move the special handling out of
the regexp engine. Now a flag is set on the split op itself for
this case. A real regexp is still created, as that is the most
convenient way to propagate locale settings, and it prevents the
need to rework pp_split to handle a null regexp.
This also means that custom regexp plugins no longer need to handle
split specially (which they all do currently).
Diffstat (limited to 'regen')
| -rw-r--r-- | regen/regcomp.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/regen/regcomp.pl b/regen/regcomp.pl index eef553311b..16091caae1 100644 --- a/regen/regcomp.pl +++ b/regen/regcomp.pl @@ -253,7 +253,7 @@ foreach my $file ("op_reg_common.h", "regexp.h") { # optional leading '_'. Return symbol in $1, and strip it from # rest of line - if (s/ \#define \s+ ( _? RXf_ \w+ ) \s+ //xi) { + if (s/ \# \s* define \s+ ( _? RXf_ \w+ ) \s+ //xi) { chomp; my $define = $1; s: / \s* \* .*? \* \s* / : :x; # Replace comments by a blank |