Joe Schaefer ????????:
Nguyen Vu Hung <[EMAIL PROTECTED]> writes:
foreach $h (@{$hosts})
{
$obj = $type->SUPER::new(PeerAddr => ($host = $h),
Are you sure you want SUPER::new()? I think in your
case it translates to Net::Cmd::new(), when your args
suggest you want IO::Socket::INET::new().
It won't work. I don't know the reason but because $obj inherits from 02
classes, not only Net::Cmd::new
PeerPort => 110, #$arg{PeerPort} || 110,#(110)',
Proto => 'tcp',
LocalPort => 110,
You can't bind to LocalPort 110 unless you are root.
Try doing without the "LocalPort => 110" argument,
there's probably no need for it.
I finally gave you and pended this issue.
At the moment, I am hardcoding all the parameters, and it works well :D.
BR,
Vu Hung