diff options
| author | Karl Williamson <khw@khw-desktop.(none)> | 2010-07-19 22:26:43 -0600 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgs@consttype.org> | 2010-07-29 12:10:18 +0200 |
| commit | 1850c8f94216e3e6bf08ca1f3121b4a91d01d1bf (patch) | |
| tree | 3ca0eb84849e8b79f73a6ba5a5ad48c657386295 /ext | |
| parent | e32a881648677e322dff2b672a89f19c7d31b263 (diff) | |
| download | perl-1850c8f94216e3e6bf08ca1f3121b4a91d01d1bf.tar.gz | |
Refactor common parts of op.h, regexp.h into new .h
op.h and regexp.h share common elements in their data structures. They
have had to manually be kept in sync. This patch makes it easier by
putting those common parts into a common header #included by the two.
To do this, it seemed easiest to change the symbol definitions to use
left shifts to generate the flag bits. But this meant that regcomp.pl
and axt/B/defsubs_h.PL had to be taught to recognize those forms of
expressions, done in separate commits
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/B/defsubs_h.PL | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/B/defsubs_h.PL b/ext/B/defsubs_h.PL index d8e1439f7d..b6d8aaaabe 100644 --- a/ext/B/defsubs_h.PL +++ b/ext/B/defsubs_h.PL @@ -76,7 +76,7 @@ if ($] < 5.011) { # giving the prefix to limit the names of symbols to define that come # from that file. If none, all symbols will be defined whose values # match the pattern below. -foreach my $tuple (['op.h'],['cop.h'],['regexp.h','RXf_']) +foreach my $tuple (['op_reg_common.h','(?:(?:RXf_)?PMf_)'],['op.h'],['cop.h'],['regexp.h','RXf_']) { my $file = $tuple->[0]; my $pfx = $tuple->[1] || ''; |