| CC: | Pierre VIGIER <pierre.vigier [...] gmail.com> |
| Subject: | [Typo] XML::Compile::SOAP12::Server |
| Date: | Mon, 25 Jul 2016 02:54:12 +0400 |
| To: | bug-XML-Compile-SOAP12 [...] rt.cpan.org |
| From: | Mohamad Hallal <mohdhallal [...] gmail.com> |
Hello,
There is a type at line 43 in *XML::Compile::SOAP12::Server* version 3.04
sub makeError(@)
{ my ($self, %args) = @_;
my %error;
$error{Role} = $args{Role} || $args{faultactor};
$error{Detail} = $args{Detail} || $args{detail};
$error{Code} = $args{Code}
|| { Value => pack_type(SOAP12ENV, 'Receiver')
, Subcode => { Value => $args{faultcode} }
};
$error{Reason} = $args{Reason}
|| { Text => [ { lang => 'en', _ => $args{faultstring} } ] };
info "Fault: $error{Reason}{Text}[0]{_}";
$self->faultWriter->(Fault => \%args);
}
$self->faultWriter->(Fault => \%args);
should be sending the prepared %error instead.
Cheers,
Mohamad Hallal