File SOAP-Lite-0.712-perl514.patch of Package perl-SOAP-Lite
Index: t/XML/Parser/Lite.t
===================================================================
--- t/XML/Parser/Lite.t.orig 2010-06-03 17:33:24.000000000 +0200
+++ t/XML/Parser/Lite.t 2011-12-19 13:38:34.525955326 +0100
@@ -24,7 +24,7 @@ my %handler_of = (
Final => sub { push @final_from, 1; },
Char => sub { push @text_from, $_[1]; },
Start => sub { push @start_from, $_[1]; },
- End => sub { push @end_from, $_[1]; },
+ End => sub { push @end_from, $_[1]; return },
);
$parser->setHandlers( Final => undef, );
$parser->setHandlers( %handler_of );