From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 23 Jan 2001 14:11:58 +0000 (+0000)
Subject: Also the lib/Thread.pm itself needs to be ignored if
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=eba8ff18d7b4f163fccc1997c51233b02fd29e80;p=p5sagit%2Fp5-mst-13.2.git

Also the lib/Thread.pm itself needs to be ignored if
the Thread extension hasn't been built.

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

diff --git a/t/lib/1_compile.t b/t/lib/1_compile.t
index 3613639..1394443 100644
--- a/t/lib/1_compile.t
+++ b/t/lib/1_compile.t
@@ -43,7 +43,10 @@ delete_by_prefix('ExtUtils::MM_');	# ExtUtils::MakeMaker's domain
 delete_by_prefix('File::Spec::');	# File::Spec's domain
 $Core_Modules{'File::Spec::Functions'}++;	# put this back
 
-delete_by_prefix('Thread::') unless $Config{extensions} =~ /\bThread\b/;
+unless ($Config{extensions} =~ /\bThread\b/) {
+    delete $Core_Modules{Thread};
+    delete_by_prefix('Thread::')++;
+}
 
 delete_by_prefix('unicode::');
 $Core_Modules{'unicode::distinct'}++;	# put this back