From cc8876c3e2e0fc38b51b89fba3e6118ce3a9b18f Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Wed, 12 Dec 2001 03:14:32 +0000 Subject: [PATCH] No Socket, no Syslog. p4raw-id: //depot/perl@13645 --- ext/Sys/Syslog/syslog.t | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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; -- 2.7.4