Must remember to require Socket.

p4raw-id: //depot/perl@13649

diff --git a/ext/Sys/Syslog/syslog.t b/ext/Sys/Syslog/syslog.t
index 448bc54..30695e2 100755 (executable)
--- a/ext/Sys/Syslog/syslog.t
+++ b/ext/Sys/Syslog/syslog.t
@@ -13,6 +13,8 @@ BEGIN {
        exit 0;
     }
 
+    require Socket;
+
     # This code inspired by Sys::Syslog::connect():
     require Sys::Hostname;
     my ($host_uniq) = Sys::Hostname::hostname();