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 );
openSUSE Build Service is sponsored by