Permalink
Browse files

0.716

  • Loading branch information...
1 parent 12fad66 commit 086aa7cf66417832e9094bbef5369e39810ea14e @redhotpenguin committed May 11, 2013
View
10 Changes
@@ -15,7 +15,15 @@ http://rt.cpan.org/Public/Dist/Display.html?Name=SOAP-Lite
-----------------------------------------------------------------------
THIS RELEASE
-----------------------------------------------------------------------
-0.716
+
+
+0.716 May 10, 2013
+ ! #17275 Client unable to detect fatal SOAP failure (e.g. unable to connect to host)
+ ! #81471 Force array context for correct Apache header parsing in SOAP::Transport::HTTP
+ ! #45611 deserializing SOAP message with composite attachment raises exception
+ ! #84168 Test t/02-payload.t fails under Perl 5.17.10
+ ! #85098 Monkey patch for LWP::Protocol confuses the toolchain
+ ! #78692 / #84724 / #83715 Sending large object (many levels deep) throws error Incorrect parameter
! #78502 t/08-schema.t noisy under 5.17.2 (unescaped left brace in regex is deprecated)
! #78608 Documentation for "+trace"
! #78639 Spelling error reported by Debian tools
View
@@ -15,7 +15,7 @@ use vars qw(@ISA $VERSION);
use SOAP::Transport::HTTP;
@ISA = qw(SOAP::Transport::HTTP::Apache);
-our $VERSION = 0.715;
+our $VERSION = 0.716;
my $server = __PACKAGE__->new;
@@ -16,7 +16,7 @@ use XMLRPC::Transport::HTTP;
@ISA = qw(XMLRPC::Transport::HTTP::Apache);
-our $VERSION = 0.715;
+our $VERSION = 0.716;
my $server = __PACKAGE__->new;
View
@@ -12,7 +12,7 @@ package SOAP::Constants;
use strict;
use SOAP::Lite;
-our $VERSION = 0.715;
+our $VERSION = 0.716;
use constant URI_1999_SCHEMA_XSD => "http://www.w3.org/1999/XMLSchema";
use constant URI_1999_SCHEMA_XSI => "http://www.w3.org/1999/XMLSchema-instance";
View
@@ -18,7 +18,7 @@ package SOAP::Lite;
use 5.006; #weak references require perl 5.6
use strict;
-our $VERSION = 0.715;
+our $VERSION = 0.716;
# ======================================================================
package SOAP::XMLSchemaApacheSOAP::Deserializer;
@@ -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 !~ /}/;
@@ -121,6 +121,7 @@ sub initialize_parser {
$self->{'_parser'}->output_to_core('ALL');
$self->{'_parser'}->tmp_to_core(1);
$self->{'_parser'}->ignore_errors(1);
+ $self->{'_parser'}->extract_nested_messages(0);
}
sub generate_random_string {
View
@@ -13,7 +13,7 @@ package SOAP::Packager;
use strict;
use vars;
-our $VERSION = 0.715;
+our $VERSION = 0.716;
our $SUPPORTED_TYPES = { };
sub BEGIN {
@@ -115,6 +115,7 @@ sub initialize_parser {
$self->{'_parser'}->output_to_core('ALL');
$self->{'_parser'}->tmp_to_core(1);
$self->{'_parser'}->ignore_errors(1);
+ $self->{'_parser'}->extract_nested_messages(0);
}
sub generate_random_string {
View
@@ -11,7 +11,7 @@
package SOAP::Test;
use 5.006;
-our $VERSION = 0.715;
+our $VERSION = 0.716;
our $TIMEOUT = 5;
@@ -12,7 +12,7 @@ package SOAP::Transport::HTTP;
use strict;
-our $VERSION = 0.715;
+our $VERSION = 0.716;
use SOAP::Lite;
use SOAP::Packager;
@@ -44,7 +44,8 @@ sub patch {
}
{
- package LWP::Protocol;
+ package
+ LWP::Protocol;
local $^W = 0;
my $collect = \&collect; # store original
*collect = sub {
@@ -303,6 +304,7 @@ sub send_receive {
$self->message( $self->http_response->message );
$self->is_success( $self->http_response->is_success );
$self->status( $self->http_response->status_line );
+ return if ($self->http_response->is_success == 0);
# Pull out any cookies from the response headers
$self->{'_cookie_jar'}->extract_cookies( $self->http_response )
@@ -818,7 +820,7 @@ sub handler {
$self->request(
HTTP::Request->new(
$r->method() => $r->uri,
- HTTP::Headers->new( $r->headers_in ),
+ HTTP::Headers->new( %{ $r->headers_in } ),
$content
) );
$self->SUPER::handle;
View
@@ -12,7 +12,7 @@ package SOAP::Transport::IO;
use strict;
-our $VERSION = 0.715;
+our $VERSION = 0.716;
use IO::File;
use SOAP::Lite;
@@ -13,7 +13,7 @@ package SOAP::Transport::LOCAL;
use strict;
-our $VERSION = 0.715;
+our $VERSION = 0.716;
# ======================================================================
@@ -13,7 +13,7 @@ package SOAP::Transport::MAILTO;
use strict;
-our $VERSION = 0.715;
+our $VERSION = 0.716;
use MIME::Lite;
use URI;
@@ -12,7 +12,7 @@ package SOAP::Transport::POP3;
use strict;
-our $VERSION = 0.715;
+our $VERSION = 0.716;
use Net::POP3;
use URI;
View
@@ -12,12 +12,12 @@ package UDDI::Lite;
use 5.006;
use strict;
{
-our $VERSION = 0.715;
+our $VERSION = 0.716;
}
# ======================================================================
package UDDI::Constants;
-our $VERSION = 0.715;
+our $VERSION = 0.716;
BEGIN
{
@@ -706,7 +706,7 @@ BEGIN
# ======================================================================
package UDDI::SOM;
-our $VERSION = 0.715;
+our $VERSION = 0.716;
use vars qw(@ISA);
@ISA = qw(SOAP::SOM);
@@ -721,7 +721,7 @@ sub result
# ======================================================================
package UDDI::Data;
-our $VERSION = 0.715;
+our $VERSION = 0.716;
use Carp ();
@@ -866,7 +866,7 @@ sub AUTOLOAD
# ======================================================================
package UDDI::Serializer;
-our $VERSION = 0.715;
+our $VERSION = 0.716;
use vars qw(@ISA);
@ISA = qw(SOAP::Serializer);
@@ -924,7 +924,7 @@ sub encode_array
# ======================================================================
package UDDI::Deserializer;
-our $VERSION = 0.715;
+our $VERSION = 0.716;
use vars qw(@ISA);
@ISA = qw(SOAP::Deserializer);
@@ -955,7 +955,7 @@ sub deserialize
# ======================================================================
package UDDI::Lite;
-our $VERSION = 0.715;
+our $VERSION = 0.716;
use vars qw(@ISA $AUTOLOAD %EXPORT_TAGS);
use Exporter;
View
@@ -14,7 +14,7 @@ package XML::Parser::Lite;
use strict;
use warnings;
-our $VERSION = 0.715;
+our $VERSION = 0.716;
sub new {
my $class = shift;
View
@@ -13,7 +13,7 @@ package XMLRPC::Lite;
use SOAP::Lite;
use strict;
-our $VERSION = 0.715;
+our $VERSION = 0.716;
# ======================================================================
View
@@ -12,7 +12,7 @@ package XMLRPC::Test;
use 5.004;
use vars qw($VERSION $TIMEOUT);
-our $VERSION = 0.715;
+our $VERSION = 0.716;
$TIMEOUT = 5;
@@ -12,7 +12,7 @@ package XMLRPC::Transport::HTTP;
use strict;
-our $VERSION = 0.715;
+our $VERSION = 0.716;
use XMLRPC::Lite;
@@ -12,7 +12,7 @@ package XMLRPC::Transport::POP3;
use strict;
-our $VERSION = 0.715;
+our $VERSION = 0.716;
use XMLRPC::Lite;
use SOAP::Transport::POP3;
@@ -12,7 +12,7 @@ package XMLRPC::Transport::TCP;
use strict;
-our $VERSION = 0.715;
+our $VERSION = 0.716;
use XMLRPC::Lite;
View
@@ -10,7 +10,12 @@ BEGIN {
use strict;
use Test;
-BEGIN { plan tests => 131 }
+BEGIN {
+ my @todo;
+ $] >= 5.017010
+ and push @todo, 37;
+ plan tests => 133, todo => \@todo;
+}
use SOAP::Lite;
$SIG{__WARN__} = sub { ; }; # turn off deprecation warnings
@@ -97,6 +102,12 @@ my($a, $s, $r, $serialized, $deserialized);
<item2 xsi:type="xsd:int">60</item2>
<item2 xsi:type="xsd:int">100</item2>
<item3 xsi:type="xsd:int">200</item3>
+<item3 xsi:type="xsd:int">200</item3>
+<item4 xsi:type="xsd:int">200</item4>
+<item4 xsi:type="xsd:int">200</item4>
+<item5 xsi:type="xsd:int">400</item5>
+<item5 xsi:type="xsd:int">450</item5>
+<item6 xsi:type="xsd:int">600</item6>
</nums>
</m:doublerResponse>
</soap:Body>
@@ -108,6 +119,9 @@ my($a, $s, $r, $serialized, $deserialized);
ok($deserialized->valueof("$result/[1]") == 20);
ok($deserialized->valueof("$result/[3]") == 60);
ok($deserialized->valueof("$result/[5]") == 200);
+ ok($deserialized->valueof("$result/[9]") == 400);
+ # Test more than 9 items to check depth is okay - RT78692
+ ok($deserialized->valueof("$result/[11]") == 600);
# match should return true/false in boolean context (and object ref otherwise)
ok($deserialized->match('aaa') ? 0 : 1);
Oops, something went wrong.

0 comments on commit 086aa7c

Please sign in to comment.