perl-modperl mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Joe Schaefer <joe+gm...@sunstarsys.com>
Subject Re: ??: ??: Class inheritance, and SUPER under mod_perl2
Date Thu, 16 Aug 2007 02:50:55 GMT
Nguyen Vu Hung <vu-hung@cnt.mxt.nes.nec.co.jp> 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().

> 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.

-- 
Joe Schaefer


Mime
View raw message