From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 25 Nov 2001 23:01:39 +0000 (+0000)
Subject: No Socket, little Net.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5655ed86abaf0d94bea5cf33403d6fe9ab5c6a5e;p=p5sagit%2Fp5-mst-13.2.git

No Socket, little Net.

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

diff --git a/t/lib/1_compile.t b/t/lib/1_compile.t
index 51d4d6a..47f2dcf 100644
--- a/t/lib/1_compile.t
+++ b/t/lib/1_compile.t
@@ -72,6 +72,8 @@ add_by_name('File::Spec::Functions');	# put this back
 
 delete_by_prefix('Attribute::Handlers');# we test this, and we have demos
 
+delete_by_prefix('Net::') unless has_extension('Socket');
+
 sub using_feature {
     my $use = "use$_[0]";
     exists $Config{$use} &&