mod_fcgid: stderr: SOAP::Lite - deserialize - start decoding: 42 #### SOAP::Lite - deserialize - start decoding: 43 #### SOAP::Lite - SOAP::Parser - start decoding: soap:Client Application failed during request deserialization: Unresolved prefix 'soap' for attribute 'soap:Envelope' #### print STDERR "SOAP::Lite - deserialize - start decoding: $_[0]\n"; my $parsed = $self->decode($_[0]); #### sub decode { SOAP::Trace::trace('()'); my $self = shift; $self->parser->setHandlers( Final => sub { shift; $self->final(@_) }, Start => sub { shift; $self->start(@_) }, End => sub { shift; $self->end(@_) }, Char => sub { shift; $self->char(@_) }, ExternEnt => sub { shift; die "External entity (pointing to '$_[1]') is not allowed" }, ); # my $parsed = $self->parser->parse($_[0]); # return $parsed; # my $ret = undef; eval { $ret = $self->parser->parse($_[0]); }; if ($@) { print STDERR "SOAP::Lite - SOAP::Parser - Error Message: $@\n"; $self->final; # Clean up in the event of an error die $@; # Pass back the error } return $ret; } #### SOAP::Lite - SOAP::Parser - Error Message: Can't use string ("1") as an ARRAY ref while "strict refs" in use at (re_eval 159) line 1. #### sub compile { local $^W; # try regexp as it should be, apply patch if doesn't work foreach (regexp(), regexp('??')) { eval qq{sub parse_re { use re "eval"; 1 while \$_[0] =~ m{$_}go }; 1} or die; last if eval { parse_re('bar'); 1 } }; *compile = sub {}; }