File perl-fast-syslog.diff of Package perl

--- ext/Sys/Syslog/Syslog.pm.orig	2007-12-18 10:47:07.000000000 +0000
+++ ext/Sys/Syslog/Syslog.pm	2009-06-10 09:39:14.000000000 +0000
@@ -741,7 +741,7 @@ sub connection_ok {
 
     my $rin = '';
     vec($rin, fileno(SYSLOG), 1) = 1;
-    my $ret = select $rin, undef, $rin, 0.25;
+    my $ret = select $rin, undef, $rin, 0;
     return ($ret ? 0 : 1);
 }