pkg/47191: net/p5-SOAP-Lite regression

[joern.clausen%uni-bielefeld.de@localhost]

>Number:         47191
>Category:       pkg
>Synopsis:       net/p5-SOAP-Lite regression
>Confidential:   no
>Severity:       serious
>Priority:       medium
>Responsible:    pkg-manager
>State:          open
>Class:          sw-bug
>Submitter-Id:   net
>Arrival-Date:   Wed Nov 14 11:55:00 +0000 2012
>Originator:     Jörn Clausen
>Release:        
>Organization:
University of Bielefeld
>Environment:
>Description:
After upgrading SOAP::Lite from 0.712 to 0.715, one of my users hit this 
problem:

http://sourceforge.net/tracker/?func=detail&aid=3547564&group_id=66000&atid=513017

A diff for the fix mentioned there is attached below.


BTW: The homepage given for this package seems to be dead for years. Either the 
commented out CPAN page or the sourceforge page at

http://sourceforge.net/projects/soaplite/

are probably better references.
>How-To-Repeat:

>Fix:
Until this is fixed upstream, this patch solves the problem:

--- lib/SOAP/Lite.pm.orig       2012-07-15 09:35:18.000000000 +0000
+++ lib/SOAP/Lite.pm
@@ -1990,7 +1990,7 @@ sub match {
 sub _traverse {
     my ($self, $pointer, $itself, $path, @path) = @_;
 
-    die "Incorrect parameter" unless $itself =~/^\d$/;
+    die "Incorrect parameter" unless $itself =~/^\d+$/;
 
     if ($path && substr($path, 0, 1) eq '{') {
         $path = join '/', $path, shift @path while @path && $path !~ /}/;