Change 13645: No Socket, no Syslog.

[Jarkko Hietaniemi]

Change 13645 by jhi@alpha on 2001/12/12 03:14:32

        No Socket, no Syslog.

Affected files ...

.... //depot/perl/ext/Sys/Syslog/syslog.t#4 edit

Differences ...

==== //depot/perl/ext/Sys/Syslog/syslog.t#4 (xtext) ====
Index: perl/ext/Sys/Syslog/syslog.t
--- perl/ext/Sys/Syslog/syslog.t.~1~    Tue Dec 11 20:30:05 2001
+++ perl/ext/Sys/Syslog/syslog.t        Tue Dec 11 20:30:05 2001
@@ -8,8 +8,10 @@
        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;
End of Patch.