syslog.pl `use Socket' lossage

[perl5.git] / lib / syslog.pl

diff --git a/lib/syslog.pl b/lib/syslog.pl
index 29c3a1c..614068e 100644 (file)
--- a/lib/syslog.pl
+++ b/lib/syslog.pl
@@ -37,7 +37,7 @@ if ($] >= 5) {
 
 require 'syslog.ph';
 
- eval 'use Socket'                     ||
+ eval 'use Socket; 1'                  ||
      eval { require "socket.ph" }      ||
      require "sys/socket.ph";