From: Steve Hay <SteveHay@planit.com>
Date: Wed, 19 Jan 2005 08:55:06 +0000 (+0000)
Subject: Exclude "Thread" from $Config{dynamic_ext}
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f203173faf09af5447759fb1352e0e866dcc01fc;p=p5sagit%2Fp5-mst-13.2.git

Exclude "Thread" from $Config{dynamic_ext}

This was accidentally broken by change 23757.  It has already been
fixed in maint-5.8 when resolving conflicts during integration of
23757, so this one does NOT need integrating itself!

For more details see:
http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/2005-01/msg00477.html

p4raw-id: //depot/perl@23816
---

diff --git a/win32/config_sh.PL b/win32/config_sh.PL
index 6381cc9..646b5c2 100644
--- a/win32/config_sh.PL
+++ b/win32/config_sh.PL
@@ -45,9 +45,10 @@ while (@{$optref} && $optref->[0] =~ /^([\w_]+)=(.*)$/) {
 FindExt::scan_ext("../ext");
 FindExt::set_static_extensions(split ' ', $opt{'static_ext'});
 
+my @dynamic = grep(!/Thread/,FindExt::dynamic_ext());
 $opt{'nonxs_ext'}        = join(' ',FindExt::nonxs_ext()) || ' ';
 $opt{'static_ext'}       = join(' ',FindExt::static_ext()) || ' ';
-$opt{'dynamic_ext'}      = join(' ',FindExt::dynamic_ext()) || ' ';
+$opt{'dynamic_ext'}      = join(' ',@dynamic) || ' ';
 $opt{'extensions'}       = join(' ',FindExt::extensions()) || ' ';
 $opt{'known_extensions'} = join(' ',FindExt::known_extensions()) || ' ';