| Subject: | mod_perl bug |
Under mod_perl this code
if($!) {
$self->_Error("connection to {$self->{_host}}:{$self->{_port}}
failed: $!");
return 0;
}
result in error message:
[debug] Connecting to x.x.x.x:3312
[error] connection to {x.x.x.x}:{3312} failed: No such file or directory
My workaround is:
- connect($fp, $dest);
+ connect($fp, $dest) or croak q{connect failed: }, $!;
and comment above mentioned if block