Georg
On 8/2/06, Tom Schindl <[EMAIL PROTECTED]> wrote:
Would you mind filing a bug against Apache2::SOAP. Then Randy may fix
his dirty hack to determine MP2-Version ;-)
http://rt.cpan.org/Public/Dist/Display.html?Name=Apache2-SOAP
Tom
Georg Grabler schrieb:
> Well, i kicked out the old code which seemed to be buggy of
> Apache2::SOAP, and used the codepiece you gave me to determine which
> modperl version i'm using.
>
> What shall i say, except thank you very much, Tom. It works perfectly
> now, and all the day searching for a mistake i did in my server
> configuration now ended up in a as it seems a bugfix for a bug in a module.
>
> Thank you for your time, and the help you provided me, and hopefully
> others, when they're reading the archives.
> Georg
>
> On 8/2/06, *Tom Schindl* <[EMAIL PROTECTED]
> <mailto:[EMAIL PROTECTED]>> wrote:
>
> Georg Grabler schrieb:
> > A the logfile says, i execute the method using Apache2.
> >
> > For a better understanding:
> >
> > my $cl = ($self->{'MOD_PERL_VERSION'} == 1) ?
> > $r->header_in('Content-length') :
> $r->headers_in->{'Content-length'};
> >
> > This is the code Apache2::SOAP module uses for determining the version
> > of modperl.
> > The $self->{'MOD_PERL_VERSION'} gets set in the new method, where the
> > code seems to fail at all.. so the version is never set to two.
> >
> > codepiece cut from Apache2::SOAP:
> > sub new {
> > my $self = shift;
> > unless (ref $self) {
> > my $class = ref($self) || $self;
> > $self = $class->SUPER::new(@_);
> > SOAP::Trace::objects('()');
> > }
> > MOD_PERL: {
> > (eval { require Apache;} ) and do {
> > require Apache::Constants;
> > Apache::Constants->import('OK');
> > $self->{'MOD_PERL_VERSION'} = 1;
> > last MOD_PERL;
> > };
> > (eval { require Apache2::RequestRec;} ) and do {
> > require Apache2::RequestUtil;
> > require Apache2::RequestIO;
> > require Apache2::Const;
> > require APR::Table;
> > Apache2::Const->import(-compile => 'OK');
> > $self->{'MOD_PERL_VERSION'} = 2;
> > print "!!MOD PERL VERSION DEFINED!!";
> > last MOD_PERL;
> > };
> > die "Unsupported version of mod_perl";
> > }
> > return $self;
> > }
>
> Do you have mp1 and mp2 installed in the same perl-tree.
>
> If yes then it's clear why you always get to
> "$self->{'MOD_PERL_VERSION'} = 1;". To distinguish if running in mp1 or
> mp2 a module should use totally different code.
>
> if (exists $ENV{MOD_PERL_API_VERSION} && $ENV{MOD_PERL_API_VERSION}
> == 2) {
> require Apache2::Response;
> require Apache2::RequestRec;
> require Apache2::RequestUtil;
> require Apache2::RequestIO;
> // ...
> } else {
> require Apache;
> // ...
> }
>
> I'd advice the Apache2::SOAP maintainer that he will get into trouble
> when mp1 and mp2 are installed in the same tree.
>
> Tom
>
>
