From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 23 Jul 2012 09:30:17 +0000 (+0200)
Subject: Expose all SV flags matching qr/SV(?:[fps]|pad)_/ as constants in B.
X-Git-Tag: upstream/5.20.0~6034^2~3
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=9489b85a1e34c77cea51e40f85aa783e62bd771b;p=platform%2Fupstream%2Fperl.git

Expose all SV flags matching qr/SV(?:[fps]|pad)_/ as constants in B.

Previously only a subset were exposed as constants.
---

diff --git a/ext/B/Makefile.PL b/ext/B/Makefile.PL
index 727eeba..7075318 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] || '';