Excerpts from the mail message of Medi Montaseri:
) if ( $found = select($rin, undef, undef, undef) )
I don't see how this has anything to do with XS, but... Did you
read the documentation on C<select> in F<perlfunc.pod>? The
first 3 arguments are overwritten so need to write that as:
my $rout;
if ( $found = select($rout= $rin, undef, undef, undef) )
and then check for bits in C<$rout> instead of in C<$rin>.
) sysread($fd, $buf, 100);
[...]
) By the way, this would be a useful program. For sites that haven't
) heard of syslogd(1).
Then you should use a length as large as the probable pipe buffer
size instead of only C<100>. Otherwise you are going to intermix
line fragments for only slightly long lines.
--
Tye McQueen Nothing is obvious unless you are overlooking something
http://www.metronet.com/~tye/ (scripts, links, nothing fancy)
