diff options
| author | Nicholas Clark <nick@ccl4.org> | 2009-02-04 19:28:06 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2009-02-04 19:28:06 +0000 |
| commit | e08c66ce3962dd9ec38a7094a11b5e4bc2376c00 (patch) | |
| tree | 6ec5c453c1b593b8ff536c1a8177a6f9e5813120 /make_ext.pl | |
| parent | 8b2bdce690895574a192de0ae0dd992853e38c29 (diff) | |
| download | perl-e08c66ce3962dd9ec38a7094a11b5e4bc2376c00.tar.gz | |
Some refactoring in the loop that constructs parameters for build_extension().
Diffstat (limited to 'make_ext.pl')
| -rw-r--r-- | make_ext.pl | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/make_ext.pl b/make_ext.pl index db3a1affa6..97bc08d2eb 100644 --- a/make_ext.pl +++ b/make_ext.pl @@ -176,13 +176,12 @@ if ($is_Win32) { chdir '..'; # now in the Perl build directory } -foreach my $pname (@extspec) { - my $mname = $pname; +foreach my $spec (@extspec) { + my $mname = $spec; $mname =~ s!/!::!g; - my $depth = $pname; - $depth =~ s![^/]+!..!g; - # Always need one more .. for ext/ - my $up = "../$depth"; + my $ext_pathname = "ext/$spec"; + my $up = $ext_pathname; + $up =~ s![^/]+!..!g; if ($Config{osname} eq 'catamount') { # Snowball's chance of building extensions. @@ -191,9 +190,9 @@ foreach my $pname (@extspec) { print "\tMaking $mname ($target)\n"; - build_extension('ext', "ext/$pname", $up, $perl || "$up/miniperl", + build_extension('ext', $ext_pathname, $up, $perl || "$up/miniperl", "$up/lib", - [@pass_through, @{$extra_passthrough{$pname} || []}]); + [@pass_through, @{$extra_passthrough{$spec} || []}]); } sub build_extension { |