diff options
| author | Nicholas Clark <nick@ccl4.org> | 2012-07-23 11:30:17 +0200 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2012-07-24 10:24:18 +0200 |
| commit | 9489b85a1e34c77cea51e40f85aa783e62bd771b (patch) | |
| tree | 9159c26a1d27a1293869357fb9fae1e76dacfa22 /ext/B | |
| parent | 61bc5e5cf601af0f9e477344988d84967baaf47f (diff) | |
| download | perl-9489b85a1e34c77cea51e40f85aa783e62bd771b.tar.gz | |
Expose all SV flags matching qr/SV(?:[fps]|pad)_/ as constants in B.
Previously only a subset were exposed as constants.
Diffstat (limited to 'ext/B')
| -rw-r--r-- | ext/B/Makefile.PL | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/ext/B/Makefile.PL b/ext/B/Makefile.PL index 727eeba26e..70753188ae 100644 --- a/ext/B/Makefile.PL +++ b/ext/B/Makefile.PL @@ -25,8 +25,6 @@ my @names = qw(CVf_ANON CVf_CLONE CVf_CLONED CVf_CONST CVf_LVALUE CVf_METHOD GVf_IMPORTED_AV GVf_IMPORTED_CV GVf_IMPORTED_HV GVf_IMPORTED_SV HEf_SVKEY SVTYPEMASK SVt_PVGV SVt_PVHV - SVf_FAKE SVf_IOK SVf_IVisUV SVf_NOK SVf_POK SVf_READONLY - SVf_ROK SVp_IOK SVp_NOK SVp_POK SVpad_OUR SVs_RMG SVs_SMG PAD_FAKELEX_ANON PAD_FAKELEX_MULTI); if ($] >= 5.009) { @@ -52,6 +50,7 @@ foreach my $tuple (['cop.h'], ['op.h'], ['op_reg_common.h','(?:(?:RXf_)?PMf_)'], ['regexp.h','RXf_'], + ['sv.h', 'SV(?:[fps]|pad)_'], ) { my $file = $tuple->[0]; my $pfx = $tuple->[1] || ''; |