From 31f5deacf5a5e6641a048e609a207ce97c03e0ad Mon Sep 17 00:00:00 2001 From: Scott Walters Date: Thu, 28 Aug 2014 21:01:51 -0400 Subject: [PATCH] 2624a9 for #86142, adding the XML declaration to the output, broke another part of the system, so work around that. I accidentally stopped doing "recursive" tests (tests in subdirs) at some point and missed some of this fun breakage. --- lib/SOAP/WSDL/Deserializer/XSD.pm | 1 + 1 file changed, 1 insertion(+) diff --git a/lib/SOAP/WSDL/Deserializer/XSD.pm b/lib/SOAP/WSDL/Deserializer/XSD.pm index 03b7a87..7ef50a8 100644 --- a/lib/SOAP/WSDL/Deserializer/XSD.pm +++ b/lib/SOAP/WSDL/Deserializer/XSD.pm @@ -35,6 +35,7 @@ sub deserialize { }) if not $parser_of{ ${ $self } }; $parser_of{ ${ $self } }->class_resolver( $class_resolver_of{ ${ $self } } ); + $content =~ s{^<\?xml version="1.0" *\?>}{}; # XML::Parser::Expat apparently doesn't like this. eval { $parser_of{ ${ $self } }->parse_string( $content ) }; if ($@) { return $self->generate_fault({