No Socket, no Syslog.

p4raw-id: //depot/perl@13645

diff --git a/ext/Sys/Syslog/syslog.t b/ext/Sys/Syslog/syslog.t
index 108d7e8..448bc54 100755 (executable)
--- 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;