Nguyen Vu Hung <[EMAIL PROTECTED]> 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;
erl@perl.apache.org
> 主题: Re: 答复: 答复: Class inheritance, and SUPER under mod_perl2
>
> Actually I did exactly what you told me yesterday and $obj was still
> undefined.
>
> Here is the code ( check if $obj is undefined inside foreach )
>
>
> package XXX::YYY3;
&g
