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 {};
}