Lu, I think IO::Socket:SSL has nothing to do here because this class inherits Net::Cmd and IO::Socket::INET.
The next part of the code is to connect to a POP server and get emails, therefore it has no relationship wih IO::Socket:SSL. The point maybe the word SUPER. AFAIK, "SUPER" means "super class" in Perl, right? Please fix me if I am wrong. So, in this case, $type->SUPER::new refers to the parents clasess ( i.e, Net::Cmd, IO::Socket::INET ) of its own ( XXX::YYY3 class ). Do I need to post the code where XXX:YYY3 is being called? Luke Lu さんは��きました: > We can infer : > $obj = $type->SUPER::new(PeerAddr => ($h), > >> PeerPort => 110, >> Proto => 'tcp', >> LocalPort => 110, >> Timeout => 120 >> );# and last; >> > This line may have some problems , you can use IO::Socket::SSL this package . > Or you can give me the SUPER, I try to debug it. > -----邮件原件----- > 发件人: Nguyen Vu Hung [mailto:[EMAIL PROTECTED] > 发送时间: 2007年8月16日 9:46 > 收件人: Luke Lu > 抄送: modperl@perl.apache.org > 主题: Re: 答复: 答复: 答复: Class inheritance, and SUPER under mod_perl2 > > Yes, it was undefined even inside foreach. > You can see it above the debug lines on my code. > > Luke Lu さんは��きました: > >> Hi, >> the $obj is undefined everytime? >> >> -----邮件原件----- >> 发件人: Nguyen Vu Hung [mailto:[EMAIL PROTECTED] >> 发送时间: 2007年8月16日 9:34 >> 收件人: Luke Lu >> 抄送: modperl@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; >> >> @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}) >> { >> $obj = $type->SUPER::new(PeerAddr => ($h), >> PeerPort => 110, >> Proto => 'tcp', >> LocalPort => 110, >> Timeout => 120 >> );# and last; >> >> # obj is undefined now. so weird. >> unless ( defined $obj ) { >> $sl->log_serror(__FILE__, __LINE__, Apache2::Const::LOG_ERR, >> APR::Const::SUCCESS, "XXX:: undef obj! ERROR. "); >> } >> last; >> } >> -------------------- >> Luke Lu さんは��きました: >> >> >>> Ok, so sorry, >>> You only put the print "..." inside the foreach. >>> Please try it. >>> >>> -----邮件原件----- >>> 发件人: Nguyen Vu Hung [mailto:[EMAIL PROTECTED] >>> 发送时间: 2007年8月16日 9:24 >>> 收件人: Luke Lu >>> 抄送: modperl@perl.apache.org >>> 主题: Re: 答复: Class inheritance, and SUPER under mod_perl2 >>> >>> This code didn't run. >>> >>> I don't think we can put an "if" clause inside >>> >>> $type->SUPER::new(...) >>> >>> The error I got when running this code is: >>> >>> syntax error at /XXX/YYY3.pm line 74, near "if"\nsyntax error at >>> /XXX/YYY3.pm line 77, near "} else"\nsyntax error at /XXX/YYY3.pm line 82, >>> near " >>> >>> Luke Lu さんは��きました: >>> >>> >>> >>>> Hi, >>>> In this part: >>>> foreach $h (@{$hosts}) >>>> { >>>> $obj = $type->SUPER::new(PeerAddr => ($h), >>>> PeerPort => 110, >>>> Proto => 'tcp', >>>> LocalPort => 110, >>>> Timeout => 120 >>>> ) and last; >>>> >>>> } >>>> You can debug it like this >>>> foreach $h (@{$hosts}) >>>> { >>>> $obj = $type->SUPER::new(PeerAddr => ($h), >>>> PeerPort => 110, >>>> Proto => 'tcp', >>>> LocalPort => 110, >>>> Timeout => 120 >>>> If (defined ($obj)) { >>>> Print "ok"; >>>> } >>>> Else { >>>> Print "bad"; >>>> } >>>> ) and last; >>>> } >>>> >>>> According to this ,you can check it whether every time it will be 'ok' or >>>> not. >>>> If the last time is output 'bad', then you can find the real reason >>>> >>>> If still have any question,please contact with me/ >>>> >>>> luke >>>> >>>> -----邮件原件----- >>>> 发件人: Nguyen Vu Hung [mailto:[EMAIL PROTECTED] >>>> 发送时间: 2007年8月16日 8:58 >>>> 收件人: modperl@perl.apache.org >>>> 主题: Class inheritance, and SUPER under mod_perl2 >>>> >>>> Hello all, >>>> >>>> I am quite new to Perl, mod_perl and mod_perl2 so please excuse me for >>>> my questions. It my sounds noobish. >>>> >>>> In the code below, the class XXX:YYY3 inherits Net::Cmd, >>>> IO::Socket::Inet, create an object $obj with the SUPER keyword. >>>> >>>> As far as I know, this code works well under Apache 1.3, Perl 5.6, >>>> mod_perl 1.3. >>>> >>>> But in current environment which consists Apache 2.0.52, Perl 5.8, >>>> mod_perl 2.0.3, $obj becomes undefined (!!) after it is called with SUPER. >>>> >>>> Anyone gets any clues? >>>> >>>> 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 $hosts = "localhost"; >>>> my $obj; >>>> my @localport = (); >>>> >>>> my $h; >>>> foreach $h (@{$hosts}) >>>> { >>>> $obj = $type->SUPER::new(PeerAddr => ($h), >>>> PeerPort => 110, >>>> Proto => 'tcp', >>>> LocalPort => 110, >>>> Timeout => 120 >>>> ) and last; >>>> } >>>> >>>> >>>> # obj is undefined now. why? >>>> unless ( defined $obj ) { >>>> $sl->log_serror(__FILE__, __LINE__, Apache2::Const::LOG_ERR, >>>> APR::Const::SUCCESS, "XXX:: undef obj! ERROR. "); >>>> } >>>> >>>> # vuhung >>>> # ref: http://www.perlmonks.org/?node_id=495975 >>>> return undef >>>> unless defined $obj; >>>> >>>> } >>>> >>>> >>>> >>>> >>>> >>>> >>>> >>> >>> >>> >> >> >> > > > >
