Integrate perlio:

[p5sagit/p5-mst-13.2.git] / t / lib / syslog.t

diff --git a/t/lib/syslog.t b/t/lib/syslog.t
index 04adb6b..801e882 100755 (executable)
--- a/t/lib/syslog.t
+++ b/t/lib/syslog.t
@@ -22,6 +22,15 @@ BEGIN {
     }
 }
 
+BEGIN {
+  eval {require Sys::Syslog} or do {
+    if ($@ =~ /Your vendor has not/) {
+      print "1..0 # Skipped: missing macros\n";
+      exit 0;
+    }
+  }
+}
+
 use Sys::Syslog qw(:DEFAULT setlogsock);
 
 # Test this to 1 if your syslog accepts udp connections.