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,
ined ($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 re
gt;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.
>
> -邮件原件-
&g
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
> 抄送: modp
ocket::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
Joe Schaefer :
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 = "loc
a copy
>
> -邮件原件-
> 发件人: Nguyen Vu Hung [mailto:[EMAIL PROTECTED]
> 发送时间: 2007年8月16日 10:15
> 收件人: Luke Lu
> 抄送: modperl@perl.apache.org
> 主题: Re: 答复: 答复: 答复: 答复: Class inheritance, and SUPER under mod_perl2
>
> Lu,
>
> I think IO::Socket:SSL has nothing to do
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::
After sending a hardtime with IPC::Run, I still didn't understand it
from usage example, so I post it here.
In the code below, what [EMAIL PROTECTED], $in, $out, $err? How to declare them?
Question 01:
#http://www.annocpan.org/~RSOD/IPC-Run-0.80/lib/IPC/Run.pm
## Using run() instead of syste
Hi all,
The following code run without problems under Apache 1.3.29, Perl 5.6.1,
mod_perl 1.29.
Under the new environment which is Apache 2.0.52, Perl 5.8.8, mod_perl
2.0.3 ( Cent OS 4.5 ), it won't run.
I have read through mod_perl2's compat page[1] and rename[2] page, but I
didn't find any use
Hotscripts.com has tons of tutorials[1] and sample code[2]
By reading such tutorials, you will be able to write code, quite fast,
but dirty. After that, a reference and actual code from *good* perl
applications are your good friends. See [2].
For the performance of mp, speaking of my own experien
11 matches
Mail list logo