From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 12 Dec 2001 03:14:32 +0000 (+0000)
Subject: No Socket, no Syslog.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cc8876c3e2e0fc38b51b89fba3e6118ce3a9b18f;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;