From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Tue, 19 Jun 2001 07:57:10 +0000 (+0000)
Subject: Get Win32 known_extensions and extensions right in config.sh and hence Config.pm
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1076f1fdb19bacf64e54d08f4a34bbf8042caa24;p=p5sagit%2Fp5-mst-13.2.git

Get Win32 known_extensions and extensions right in config.sh and hence Config.pm

p4raw-id: //depot/perlio@10708
---

diff --git a/win32/config_sh.PL b/win32/config_sh.PL
index 9757e52..35bb6e2 100644
--- a/win32/config_sh.PL
+++ b/win32/config_sh.PL
@@ -44,8 +44,21 @@ while (@{$optref} && $optref->[0] =~ /^([\w_]+)=(.*)$/) {
     shift(@{$optref});
 }
 
-$opt{'dynamic_ext'} = join(' ',FindExt::dynamic_extensions());
-$opt{'nonxs_ext'}   = join(' ',FindExt::noxs_extensions());
+my @dynamic = FindExt::dynamic_extensions();
+my @noxs    = FindExt::noxs_extensions();
+my @known   = sort(@dynamic,split(/\s+/,$opt{'staticext'}),@noxs);
+$opt{'known_extensions'} = join(' ',@known);
+
+if (!$opt{'use5005threads'} || $opt{'use5005threads'} eq 'undef')
+ {
+  @dynamic = grep(!/Thread/,@dynamic);
+  @known   = grep(!/Thread/,@dynamic);
+ }
+
+$opt{'dynamic_ext'} = join(' ',@dynamic);
+$opt{'nonxs_ext'}   = join(' ',@noxs);
+
+$opt{'extensions'} = join(' ',@known);
 
 my $pl_h = '../patchlevel.h';