diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-04-07 11:39:45 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-04-07 11:39:45 +0000 |
| commit | 8e2329934bcca9c59680f6d478c3c2bc3ef7c649 (patch) | |
| tree | d3828afeb910666ce7ae57b739670767c1bc0326 /win32/config_sh.PL | |
| parent | 267cbce72d0da7af102852e6d7e0bb5c1ce41da6 (diff) | |
| download | perl-8e2329934bcca9c59680f6d478c3c2bc3ef7c649.tar.gz | |
Split out extension finding code from buildext.pl into FindExt.pm
Use it to get Config.pm's idea of available extensions in line
with what is built.
p4raw-id: //depot/perlio@9604
Diffstat (limited to 'win32/config_sh.PL')
| -rw-r--r-- | win32/config_sh.PL | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/win32/config_sh.PL b/win32/config_sh.PL index 0e1d351c1a..9757e52cac 100644 --- a/win32/config_sh.PL +++ b/win32/config_sh.PL @@ -1,3 +1,4 @@ +use FindExt; # take a semicolon separated path list and turn it into a quoted # list of paths that Text::Parsewords will grok sub mungepath { @@ -33,13 +34,19 @@ sub loadopts { } } +FindExt::scan_ext("../ext"); + my %opt; + my $optref = loadopts(); while (@{$optref} && $optref->[0] =~ /^([\w_]+)=(.*)$/) { $opt{$1}=$2; shift(@{$optref}); } +$opt{'dynamic_ext'} = join(' ',FindExt::dynamic_extensions()); +$opt{'nonxs_ext'} = join(' ',FindExt::noxs_extensions()); + my $pl_h = '../patchlevel.h'; if (-e $pl_h) { |