No Socket, no Syslog.
Jarkko Hietaniemi [Wed, 12 Dec 2001 03:14:32 +0000 (03:14 +0000)]
p4raw-id: //depot/perl@13645

ext/Sys/Syslog/syslog.t

index 108d7e8..448bc54 100755 (executable)
@@ -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;