diff options
| author | Nicholas Clark <nick@ccl4.org> | 2007-12-28 21:25:50 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2007-12-28 21:25:50 +0000 |
| commit | 220fc49f9cd19ab777a22ef733671f0fbb81e6bd (patch) | |
| tree | a91eae57fc34523216a9770d4b54a1f88987826b /ext/re | |
| parent | f19b4ba939a9fcdd83b091f4baa1c12b87ff9886 (diff) | |
| download | perl-220fc49f9cd19ab777a22ef733671f0fbb81e6bd.tar.gz | |
Wrap all accesses to the members precomp and prelen of struct regexp in
the macros RX_PRECOMP() and RX_PRELEN(). This will allow us to reduce
the regexp storage overhead by computing them at retrieve time.
p4raw-id: //depot/perl@32753
Diffstat (limited to 'ext/re')
| -rw-r--r-- | ext/re/re.xs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/re/re.xs b/ext/re/re.xs index d1001c4e57..fa82127c85 100644 --- a/ext/re/re.xs +++ b/ext/re/re.xs @@ -116,7 +116,7 @@ PPCODE: match_flags >>= 1; } - pattern = sv_2mortal(newSVpvn(re->precomp,re->prelen)); + pattern = sv_2mortal(newSVpvn(RX_PRECOMP(re),RX_PRELEN(re))); if (re->extflags & RXf_UTF8) SvUTF8_on(pattern); /* return the pattern and the modifiers */ |