Re: ??: ??: Class inheritance, and SUPER under mod_perl2

[Nguyen Vu Hung <suppressed>]

Joe Schaefer ????????:
> Nguyen Vu Hung <suppressed> writes:
>
>   
> > Here is the code ( check if $obj is undefined inside foreach )
> >
> > ------------
> > package XXX::YYY3;
> >
> > @ISA = qw(Net::Cmd IO::Socket::INET);
> >
> > sub new
> > {
> > my $self = shift;
> > my $type = ref($self) || $self;
> >
> > my $hosts = "localhost";
> > my $obj;
> > my @localport = ();
> >
> > my $h;
> > foreach $h (@{$hosts})
> >     
>
> Are you using symrefs or something?
It seems that I am using symref. Please see the cose below ( more 
original - The code I have posted in the previous emails are slight 
modified, by me, so it may contains errors! )
>  $hosts here is
> a scalar, not an arrayref. 
Yes, I changed my code. Please see below.
>  Are you sure the loop
> is being entered at all?
>
>   
Yes, because the log inisde the foreach loop was printed out.

Here is the code

package XXX::YYY3;

@ISA = qw(Net::Cmd IO::Socket::INET);

sub new
{
my $self = shift;
my $type = ref($self) || $self;
my $host = shift if @_ % 2;
my %arg = @_;
my $hosts = defined $host ? [ $host ] : $NetConfig{pop3_hosts};
my $obj;
my @localport = exists $arg{ResvPort} ? ( LocalPort => $arg{ResvPort} ): ();

my $h;
foreach $h (@{$hosts})
{

$obj = $type->SUPER::new(PeerAddr => ($host = $h),
PeerPort => 110, #$arg{PeerPort} || 110,#(110)',
Proto => 'tcp',
LocalPort => 110,
Timeout => 120 #defined $arg{Timeout}

);# and last; #last:??????

# printed:undef -> i.e, $obj is undefined at this moment.
unless ( defined $obj ) {
$sl->log_serror(__FILE__, __LINE__, Apache2::Const::LOG_ERR,
APR::Const::SUCCESS, "xpop3:: undef obj! ERROR. ");
}

last;
}
}

# printed:undef -> i.e, $obj is undefined at this moment.
unless ( defined $obj ) {
$sl->log_serror(__FILE__, __LINE__, Apache2::Const::LOG_ERR,
APR::Const::SUCCESS, "xpop3:: undef obj! ERROR. ");
}