diff options
| author | Nicholas Clark <nick@ccl4.org> | 2012-07-23 13:27:32 +0200 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2012-07-24 10:24:18 +0200 |
| commit | 655d9c7509df1bcc60830c6c357cddd28e8856bb (patch) | |
| tree | 56758155eea04cd698de8a79114ebbc4d684095f /ext | |
| parent | 675cfc4e22d24527748ce3230ae5fe5f3a561af7 (diff) | |
| download | perl-655d9c7509df1bcc60830c6c357cddd28e8856bb.tar.gz | |
Expose all GV flags matching qr/GVf_/ as constants in B.
Previously only those matching qr/GVf_IMPORTED/ were exposed.
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/B/Makefile.PL | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/B/Makefile.PL b/ext/B/Makefile.PL index 312e4419f4..de6530c6ba 100644 --- a/ext/B/Makefile.PL +++ b/ext/B/Makefile.PL @@ -20,8 +20,7 @@ if ($core) { $headerpath = File::Spec->catdir($Config::Config{archlibexp}, "CORE"); } -my @names = qw(GVf_IMPORTED_AV GVf_IMPORTED_CV GVf_IMPORTED_HV GVf_IMPORTED_SV - HEf_SVKEY +my @names = qw(HEf_SVKEY SVTYPEMASK SVt_PVGV SVt_PVHV PAD_FAKELEX_ANON PAD_FAKELEX_MULTI); @@ -39,6 +38,7 @@ if ($] < 5.009) { # match the pattern below. foreach my $tuple (['cop.h'], ['cv.h', 'CVf'], + ['gv.h', 'GVf'], ['op.h'], ['op_reg_common.h','(?:(?:RXf_)?PMf_)'], ['regexp.h','RXf_'], |