This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Minimise the actions of the BEGIN block in B.pm
authorNicholas Clark <nick@ccl4.org>
Sun, 20 Mar 2011 10:25:21 +0000 (10:25 +0000)
committerNicholas Clark <nick@ccl4.org>
Sun, 20 Mar 2011 10:25:21 +0000 (10:25 +0000)
Retain the call to XSLoader::load() at BEGIN time, as we want the constants
loaded before the compiler meets OPf_KIDS below, as the combination of having
the constant stay a Proxy Constant Subroutine and its value being inlined
saves a little over .5K

ext/B/B.pm

index d98793c..063eb40 100644 (file)
@@ -16,26 +16,28 @@ require Exporter;
 
 BEGIN {
     $B::VERSION = '1.29';
+    @B::EXPORT_OK = ();
+
+    # Our BOOT code needs $VERSION set, and will append to @EXPORT_OK.
+    # Want our constants loaded before the compiler meets OPf_KIDS below, as
+    # the combination of having the constant stay a Proxy Constant Subroutine
+    # and its value being inlined saves a little over .5K
 
-    @B::EXPORT_OK = qw(minus_c ppname save_BEGINs
-                      class peekop cast_I32 cstring cchar hash threadsv_names
-                      main_root main_start main_cv svref_2object opnumber
-                      sub_generation amagic_generation perlstring
-                      walkoptree_slow walkoptree walkoptree_exec walksymtable
-                      parents comppadlist sv_undef compile_stats timing_info
-                      begin_av init_av check_av end_av regex_padav dowarn
-                      defstash curstash warnhook diehook inc_gv @optype
-                      @specialsv_name
-                  );
-    push @B::EXPORT_OK, qw(unitcheck_av) if $] > 5.009;
-
-    # All the above in this BEGIN, because our BOOT code needs $VERSION set,
-    # and will append to @EXPORT_OK. And we need to run the BOOT code before
-    # we see OPf_KIDS below.
     require XSLoader;
     XSLoader::load();
 }
 
+push @B::EXPORT_OK, (qw(minus_c ppname save_BEGINs
+                       class peekop cast_I32 cstring cchar hash threadsv_names
+                       main_root main_start main_cv svref_2object opnumber
+                       sub_generation amagic_generation perlstring
+                       walkoptree_slow walkoptree walkoptree_exec walksymtable
+                       parents comppadlist sv_undef compile_stats timing_info
+                       begin_av init_av check_av end_av regex_padav dowarn
+                       defstash curstash warnhook diehook inc_gv @optype
+                       @specialsv_name
+                     ), $] > 5.009 && 'unitcheck_av');
+
 @B::SV::ISA = 'B::OBJECT';
 @B::NULL::ISA = 'B::SV';
 @B::PV::ISA = 'B::SV';