From 655d9c7509df1bcc60830c6c357cddd28e8856bb Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 23 Jul 2012 13:27:32 +0200
Subject: [PATCH] Expose all GV flags matching qr/GVf_/ as constants in B.

Previously only those matching qr/GVf_IMPORTED/ were exposed.
---
 ext/B/Makefile.PL | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ext/B/Makefile.PL b/ext/B/Makefile.PL
index 312e441..de6530c 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_'],
-- 
1.8.3.1