In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/31221351abb3a508c369e8203d17da077adc667b?hp=bfab049986675c47a6b5030ff9c8f39c28e7945e>
- Log ----------------------------------------------------------------- commit 31221351abb3a508c369e8203d17da077adc667b Author: Daniel Dragan <[email protected]> Date: Tue Jan 20 01:25:26 2015 -0500 factor out an %ENV assignment from make_ext.pl nytprof using full (not mini) Win32 perl reported 44 calls on line "$ENV{PERL_CORE} = 1;" at 623 us spent on line for make_ext.pl --dynamic Move the env var setting out from build_extension() to before the foreach loop starts. ----------------------------------------------------------------------- Summary of changes: make_ext.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/make_ext.pl b/make_ext.pl index 12926f8..1b055c3 100644 --- a/make_ext.pl +++ b/make_ext.pl @@ -220,6 +220,7 @@ if ($Config{osname} eq 'catamount' and @extspec) { # Snowball's chance of building extensions. die "This is $Config{osname}, not building $extspec[0], sorry.\n"; } +$ENV{PERL_CORE} = 1; foreach my $spec (@extspec) { my $mname = $spec; @@ -271,7 +272,6 @@ sub build_extension { $perl ||= "$up/miniperl"; my $return_dir = $up; my $lib_dir = "$up/lib"; - $ENV{PERL_CORE} = 1; my ($makefile, $makefile_no_minus_f); if (IS_VMS) { -- Perl5 Master Repository
