| Subject: | Do not work on FreeBSD 6.2 |
I have FreeBSD 6.2 and perl-5.8.8_1 from ports
Summary of my perl5 (revision 5 version 8 subversion 8) configuration:
Platform: osname=freebsd, osvers=6.2-release-p7, archname=i386-freebsd-
64int
Characteristics of this binary (from libperl):
Compile-time options: MYMALLOC PERL_MALLOC_WRAP USE_64_BIT_INT
USE_LARGE_FILES USE_PERLIO
Locally applied patches: defined-or
Built under freebsd
function recv() returns empty string in normal situation, but fails in
current module version. The documentation on recv() sais that function
fails if return code is undef.
My modifications are:
line 306
- recv($fp, $buf, 4, 0) eq "" || croak("recv: ".$!);
+ croak("recv: ".$!) unless defined recv($fp, $buf, 4, 0);
and
line 336
- recv($fp, $header, 8, 0) eq "" || croak("recv: ".$!);
+ croak("recv: ".$!) unless defined recv($fp, $header, 8, 0);