No Socket, no Syslog.

p4raw-id: //depot/perl@13645

1 files changed, 4 insertions, 2 deletions

diff --git a/ext/Sys/Syslog/syslog.t b/ext/Sys/Syslog/syslog.t
index 108d7e8a0b..448bc546ce 100755
--- a/ext/Sys/Syslog/syslog.t
+++ b/ext/Sys/Syslog/syslog.t
@@ -8,8 +8,10 @@ BEGIN {
 	print "1..0 # Skip: Sys::Syslog was not built\n";
 	exit 0;
     }
-
-    require Socket;
+    if ($Config{'extensions'} !~ /\bSocket\b/) {
+	print "1..0 # Skip: Socket was not built\n";
+	exit 0;
+    }
 
     # This code inspired by Sys::Syslog::connect():
     require Sys::Hostname;