perlquestion zwon <p>I used to set timeout on socket with the following code: <c> my $timeout = pack( 'L!L!', $seconds, 0 ); defined $socket->sockopt( SO_RCVTIMEO, $timeout ) or die "Couldn't set timeout: $!"; </c> <p>And it worked just fine till they released [http://www.netbsd.org/releases/formal-6/NetBSD-6.0.html#major-changes | NetBSD 6.0]. It uses 64-bit time_t on all architectures, so I'm getting failures from cpan testers for NetBSD 6.0 on i386. Now I'm looking for a new <em>elegant</em> way to pack timeval. I can easily do it in C: <c> use 5.010; use strict; use warnings; use Inline C => 'DATA'; my $timeval = pack_timeval(2,0); __DATA__ __C__ SV* pack_timeval(time_t tv_sec, long tv_usec) { struct timeval tv; tv.tv_sec = tv_sec; tv.tv_usec = tv_usec; return newSVpv((char *) &tv, sizeof(struct timeval)); } </c> But I don't see any way to get size of time_t using pure Perl, it seems [mod://Config] doesn't provide this parameter.