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 (file)
--- 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} &&