This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Merge B 1.37 to blead (more SV flag constants exposed).
authorNicholas Clark <nick@ccl4.org>
Tue, 24 Jul 2012 08:39:08 +0000 (10:39 +0200)
committerNicholas Clark <nick@ccl4.org>
Tue, 24 Jul 2012 08:39:08 +0000 (10:39 +0200)
ext/B/B.pm
ext/B/Makefile.PL
pod/perldelta.pod

index 3b5933c..669a0f7 100644 (file)
@@ -15,7 +15,7 @@ require Exporter;
 # walkoptree comes from B.xs
 
 BEGIN {
-    $B::VERSION = '1.36';
+    $B::VERSION = '1.37';
     @B::EXPORT_OK = ();
 
     # Our BOOT code needs $VERSION set, and will append to @EXPORT_OK.
index f3d59ac..de6530c 100644 (file)
@@ -20,38 +20,30 @@ if ($core) {
     $headerpath = File::Spec->catdir($Config::Config{archlibexp}, "CORE");
 }
 
-my @names = qw(CVf_ANON CVf_CLONE CVf_CLONED CVf_CONST CVf_LVALUE CVf_METHOD
-              CVf_NODEBUG CVf_UNIQUE CVf_WEAKOUTSIDE
-              GVf_IMPORTED_AV GVf_IMPORTED_CV GVf_IMPORTED_HV GVf_IMPORTED_SV
-              HEf_SVKEY
+my @names = qw(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) {
-    push @names, 'CVf_ISXSUB';
-} else {
+if ($] < 5.009) {
     # Constant not present after 5.8.x
     push @names, 'AVf_REAL';
     # This is only present in 5.10, but it's useful to B::Deparse to be able
     # to import a dummy value from B
     push @names, {name=>"OPpPAD_STATE", default=>["IV", "0"]};
-}  
-
-if ($] < 5.011) {
-    # Constant not present after 5.10.x
-    push @names, 'CVf_LOCKED';
 }
 
 # First element in each tuple is the file; second is a regex snippet
 # giving the prefix to limit the names of symbols to define that come
 # from that file.  If none, all symbols will be defined whose values
 # match the pattern below.
-foreach my $tuple (['op_reg_common.h','(?:(?:RXf_)?PMf_)'],
-                  ['op.h'],
-                  ['cop.h'],
-                  ['regexp.h','RXf_']) {
+foreach my $tuple (['cop.h'],
+                   ['cv.h', 'CVf'],
+                   ['gv.h', 'GVf'],
+                   ['op.h'],
+                   ['op_reg_common.h','(?:(?:RXf_)?PMf_)'],
+                   ['regexp.h','RXf_'],
+                   ['sv.h', 'SV(?:[fps]|pad)_'],
+                  ) {
     my $file = $tuple->[0];
     my $pfx = $tuple->[1] || '';
     my $path = File::Spec->catfile($headerpath, $file);
index 6238d2c..a8877f9 100644 (file)
@@ -97,7 +97,10 @@ XXX
 
 =item *
 
-L<XXX> has been upgraded from version 0.69 to version 0.70.
+L<B> has been upgraded from version 1.36 to version 1.37. All C<CVf_*> and
+C<GVf_*> and more SV-related flag values are now provided as constants in
+the C<B::> namespace and available for export. The default export list has
+not changed.
 
 =back