From 9489b85a1e34c77cea51e40f85aa783e62bd771b Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 23 Jul 2012 11:30:17 +0200
Subject: [PATCH] Expose all SV flags matching qr/SV(?:[fps]|pad)_/ as
 constants in B.

Previously only a subset were exposed as constants.
---
 ext/B/Makefile.PL | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

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] || '';
-- 
2.7.4