609b92152f
Copy from devel:languages:perl/perl based on submit request 31309 from user coolo OBS-URL: https://build.opensuse.org/request/show/31309 OBS-URL: https://build.opensuse.org/package/show/openSUSE:Factory/perl?expand=0&rev=36
12 lines
359 B
Diff
12 lines
359 B
Diff
--- 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);
|
|
}
|
|
|