Hello community, here is the log from the commit of package perl-SOAP-Lite for openSUSE:Factory checked in at 2014-01-01 20:42:31 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-SOAP-Lite (Old) and /work/SRC/openSUSE:Factory/.perl-SOAP-Lite.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-SOAP-Lite" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-SOAP-Lite/perl-SOAP-Lite.changes 2013-08-20 11:35:34.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-SOAP-Lite.new/perl-SOAP-Lite.changes 2014-01-01 20:42:32.000000000 +0100 @@ -1,0 +2,22 @@ +Thu Dec 19 09:52:30 UTC 2013 - [email protected] + +- license update: (Artistic-1.0 or GPL-1.0+) and CC-BY-ND-2.0 + just do it + +------------------------------------------------------------------- +Mon Dec 16 10:40:47 UTC 2013 - [email protected] + +- license update: (Artistic-1.0 or GPL-1.0+) and CC-BY-ND + See lib/SOAP/Lite.pm - documentation and the text is CC-BY-ND + +------------------------------------------------------------------- +Mon Dec 9 11:12:54 UTC 2013 - [email protected] + +- updated to 1.08 + ! #15703 add no_index for examples to prevent CPAN pollution [githumb.com/sergeyromanov] + ! #89948 Remove warning when Content-Id is not present + ! #87935 skip all MIME-Parser tests if it is not installed + ! #87787 Use of uninitialized value $ns in Lite.pm + ! #87848 Fix manifest, fix invalid http version from release blunder + +------------------------------------------------------------------- Old: ---- SOAP-Lite-1.04.tar.gz New: ---- SOAP-Lite-1.08.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-SOAP-Lite.spec ++++++ --- /var/tmp/diff_new_pack.KigW1O/_old 2014-01-01 20:42:33.000000000 +0100 +++ /var/tmp/diff_new_pack.KigW1O/_new 2014-01-01 20:42:33.000000000 +0100 @@ -17,62 +17,48 @@ Name: perl-SOAP-Lite +Version: 1.08 +Release: 0 %define cpan_name SOAP-Lite Summary: Perl's Web Services Toolkit -License: GPL-1.0+ or Artistic-1.0 +License: (Artistic-1.0 or GPL-1.0+) and CC-BY-ND-2.0 Group: Development/Libraries/Perl -Version: 1.04 -Release: 0 Url: http://search.cpan.org/dist/SOAP-Lite/ -Source: http://www.cpan.org/modules/by-module/SOAP/SOAP-Lite-%{version}.tar.gz -BuildRoot: %{_tmppath}/%{name}-%{version}-build -%{perl_requires} +Source: http://www.cpan.org/authors/id/P/PH/PHRED/%{cpan_name}-%{version}.tar.gz BuildArch: noarch +BuildRoot: %{_tmppath}/%{name}-%{version}-build BuildRequires: perl -%if 0%{?suse_version} && 0%{?suse_version} < 1200 BuildRequires: perl-macros -%endif BuildRequires: perl(Class::Inspector) -BuildRequires: perl(HTTP::Daemon) -BuildRequires: perl(IO::File) +BuildRequires: perl(Compress::Zlib) +BuildRequires: perl(Crypt::SSLeay) +BuildRequires: perl(IO::SessionData) >= 1.03 BuildRequires: perl(IO::Socket::SSL) BuildRequires: perl(LWP::UserAgent) -BuildRequires: perl(MIME::Parser) -BuildRequires: perl(Scalar::Util) BuildRequires: perl(Task::Weaken) BuildRequires: perl(URI) BuildRequires: perl(XML::Parser) >= 2.23 -BuildRequires: perl(constant) -# Requires: perl(Class::Inspector) -Requires: perl(HTTP::Daemon) -Requires: perl(IO::File) +Requires: perl(Compress::Zlib) +Requires: perl(Crypt::SSLeay) +Requires: perl(IO::SessionData) >= 1.03 Requires: perl(IO::Socket::SSL) Requires: perl(LWP::UserAgent) -Requires: perl(MIME::Parser) -Requires: perl(Scalar::Util) Requires: perl(Task::Weaken) Requires: perl(URI) Requires: perl(XML::Parser) >= 2.23 -Requires: perl(constant) +%{perl_requires} %description SOAP::Lite is a collection of Perl modules which provides a simple and lightweight interface to the Simple Object Access Protocol (SOAP) both on client and server side. -Authors: --------- - Paul Kulchenko <[email protected]> - Martin Kutter <[email protected]> - Randy J. Ray <[email protected]> - Byrne Reese <[email protected]> - %prep %setup -q -n %{cpan_name}-%{version} -for file in bin/SOAPsh.pl bin/XMLRPCsh.pl; do -%{__sed} -i -e 's@^\#\!/bin/env\(.*\)@\#\!/usr/bin/env\1@' $file -done +find . -type f -print0 | xargs -0 chmod 644 +# MANUAL +sed -e 's,!/bin/env perl,!/usr/bin/perl,' -i bin/*pl %build %{__perl} Makefile.PL INSTALLDIRS=vendor @@ -83,18 +69,11 @@ %install %perl_make_install -# do not perl_process_packlist (noarch) -# remove .packlist file -%{__rm} -rf $RPM_BUILD_ROOT%perl_vendorarch -# remove perllocal.pod file -%{__rm} -rf $RPM_BUILD_ROOT%perl_archlib +%perl_process_packlist %perl_gen_filelist -%clean -%{__rm} -rf $RPM_BUILD_ROOT - %files -f %{name}.files -%defattr(-,root,root,-) -%doc Changes HACKING README ReleaseNotes.txt +%defattr(-,root,root,755) +%doc Changes examples HACKING README ReleaseNotes.txt %changelog ++++++ SOAP-Lite-1.04.tar.gz -> SOAP-Lite-1.08.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SOAP-Lite-1.04/Changes new/SOAP-Lite-1.08/Changes --- old/SOAP-Lite-1.04/Changes 2013-08-10 05:42:26.000000000 +0200 +++ new/SOAP-Lite-1.08/Changes 2013-11-08 18:37:35.000000000 +0100 @@ -15,6 +15,19 @@ THIS RELEASE ----------------------------------------------------------------------- +1.08 November 8, 2013 + ! #15703 add no_index for examples to prevent CPAN pollution [githumb.com/sergeyromanov] + +1.07 November 7, 2013 + ! #89948 Remove warning when Content-Id is not present + +1.06 August 21, 2013 + ! #87935 skip all MIME-Parser tests if it is not installed + ! #87787 Use of uninitialized value $ns in Lite.pm + +1.05 August 18, 2013 + ! #87848 Fix manifest, fix invalid http version from release blunder + 1.04 August 9, 2013 ! #87605 Skip XML::Parser::Lite tests if it is missing [github.com/omega] diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SOAP-Lite-1.04/MANIFEST new/SOAP-Lite-1.08/MANIFEST --- old/SOAP-Lite-1.04/MANIFEST 2013-08-10 05:43:49.000000000 +0200 +++ new/SOAP-Lite-1.08/MANIFEST 2013-11-08 18:39:16.000000000 +0100 @@ -1,6 +1,5 @@ bin/SOAPsh.pl bin/stubmaker.pl -bin/XMLRPCsh.pl Changes examples/allclients.pl examples/authentication.pl @@ -98,40 +97,41 @@ examples/XMLRPC/xmlrpc.cgi examples/XMLRPC/xmlrpc.daemon HACKING +Makefile.PL +MANIFEST This list of files +META.yml +README +ReleaseNotes.txt lib/Apache/SOAP.pm -lib/SOAP/Client.pod lib/SOAP/Constants.pm -lib/SOAP/Data.pod -lib/SOAP/Deserializer.pod -lib/SOAP/Fault.pod -lib/SOAP/Header.pod -lib/SOAP/Lite.pm lib/SOAP/Lite/Deserializer/XMLSchema1999.pm lib/SOAP/Lite/Deserializer/XMLSchema2001.pm lib/SOAP/Lite/Deserializer/XMLSchemaSOAP1_1.pm lib/SOAP/Lite/Deserializer/XMLSchemaSOAP1_2.pm lib/SOAP/Lite/Packager.pm lib/SOAP/Lite/Utils.pm +lib/SOAP/Lite.pm lib/SOAP/Packager.pm -lib/SOAP/Schema.pod -lib/SOAP/Serializer.pod -lib/SOAP/Server.pod -lib/SOAP/SOM.pod lib/SOAP/Test.pm -lib/SOAP/Trace.pod -lib/SOAP/Transport.pod lib/SOAP/Transport/HTTP.pm lib/SOAP/Transport/IO.pm lib/SOAP/Transport/LOCAL.pm lib/SOAP/Transport/LOOPBACK.pm lib/SOAP/Transport/MAILTO.pm lib/SOAP/Transport/POP3.pm +lib/SOAP/Transport/TCP.pm +lib/SOAP/Client.pod +lib/SOAP/Data.pod +lib/SOAP/Deserializer.pod +lib/SOAP/Fault.pod +lib/SOAP/Header.pod +lib/SOAP/Schema.pod +lib/SOAP/Serializer.pod +lib/SOAP/Server.pod +lib/SOAP/SOM.pod +lib/SOAP/Trace.pod +lib/SOAP/Transport.pod lib/SOAP/Utils.pod -Makefile.PL -MANIFEST This list of files -META.yml -README -ReleaseNotes.txt t/01-core.t t/010-serializer.t t/012-cloneable.t @@ -140,8 +140,8 @@ t/015_UNIVERSAL_can.t t/02-payload.t t/03-server.t -t/04-attach.t t/04-attach-cid-encoded.t +t/04-attach.t t/05-customxml.t t/06-modules.t t/08-schema.t @@ -163,20 +163,28 @@ t/36-leaks.t t/38-packager.t t/40-loopback.t +t/Issues/rt15176.t +t/Issues/rt53375.t +t/Issues/rt70329.t +t/Issues/rt70381.t +t/Issues/rt72836.t +t/Issues/rt74029.t +t/Issues/rt74308.t +t/Issues/rt75169.t +t/Issues/rt78588.t t/SOAP/Data.t t/SOAP/Lite/Deserializer/XMLSchema1999.t t/SOAP/Lite/Deserializer/XMLSchema2001.t t/SOAP/Lite/Deserializer/XMLSchemaSOAP1_1.t t/SOAP/Lite/Deserializer/XMLSchemaSOAP1_2.t t/SOAP/Lite/Packager.t +t/SOAP/Schema/WSDL.t t/SOAP/Serializer.t t/SOAP/Transport/HTTP/CGI.t -t/SOAP/Transport/HTTP/CGI/test_server.pl -t/SOAP/Schema/WSDL.t t/SOAP/Transport/HTTP.t t/SOAP/Transport/IO.t -t/SOAP/Transport/IO.xml t/SOAP/Transport/LOCAL.t +t/SOAP/Transport/LOOPBACK.t t/SOAP/Transport/MAILTO.t t/SOAP/Transport/POP3.t t/SOAP/Transport/TCP.t diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SOAP-Lite-1.04/META.json new/SOAP-Lite-1.08/META.json --- old/SOAP-Lite-1.04/META.json 2013-08-10 05:43:49.000000000 +0200 +++ new/SOAP-Lite-1.08/META.json 2013-11-08 18:39:16.000000000 +0100 @@ -4,7 +4,7 @@ "Pavel Kulchenko, Randy J Ray, Byrne Reese, Martin Kutter ([email protected]), Fred Moyer" ], "dynamic_config" : 1, - "generated_by" : "ExtUtils::MakeMaker version 6.6302, CPAN::Meta::Converter version 2.120630", + "generated_by" : "ExtUtils::MakeMaker version 6.6302, CPAN::Meta::Converter version 2.120921", "keywords" : [ "SOAP", "SOAP client", @@ -21,7 +21,9 @@ "no_index" : { "directory" : [ "t", - "inc" + "inc", + "examples", + "t" ] }, "prereqs" : { @@ -40,16 +42,10 @@ "Class::Inspector" : "0", "Compress::Zlib" : "0", "Crypt::SSLeay" : "0", - "Data::UUID" : "0.11", - "HTTP::Daemon" : "0", - "IO::File" : "0", - "IO::Scalar" : "2.105", "IO::SessionData" : "1.03", "IO::Socket::SSL" : "0", "LWP::UserAgent" : "0", "MIME::Base64" : "0", - "MIME::Lite" : "0", - "MIME::Parser" : "0", "Scalar::Util" : "0", "Task::Weaken" : "0", "Test::More" : "0", @@ -66,5 +62,5 @@ "url" : "https://github.com/redhotpenguin/soaplite"; } }, - "version" : "1.04" + "version" : "1.08" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SOAP-Lite-1.04/META.yml new/SOAP-Lite-1.08/META.yml --- old/SOAP-Lite-1.04/META.yml 2013-08-10 05:43:49.000000000 +0200 +++ new/SOAP-Lite-1.08/META.yml 2013-11-08 18:39:16.000000000 +0100 @@ -7,7 +7,7 @@ configure_requires: ExtUtils::MakeMaker: 0 dynamic_config: 1 -generated_by: 'ExtUtils::MakeMaker version 6.6302, CPAN::Meta::Converter version 2.120630' +generated_by: 'ExtUtils::MakeMaker version 6.6302, CPAN::Meta::Converter version 2.120921' keywords: - SOAP - 'SOAP client' @@ -21,20 +21,16 @@ directory: - t - inc + - examples + - t requires: Class::Inspector: 0 Compress::Zlib: 0 Crypt::SSLeay: 0 - Data::UUID: 0.11 - HTTP::Daemon: 0 - IO::File: 0 - IO::Scalar: 2.105 IO::SessionData: 1.03 IO::Socket::SSL: 0 LWP::UserAgent: 0 MIME::Base64: 0 - MIME::Lite: 0 - MIME::Parser: 0 Scalar::Util: 0 Task::Weaken: 0 Test::More: 0 @@ -44,4 +40,4 @@ perl: 5.006 resources: repository: https://github.com/redhotpenguin/soaplite -version: 1.04 +version: 1.08 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SOAP-Lite-1.04/Makefile.PL new/SOAP-Lite-1.08/Makefile.PL --- old/SOAP-Lite-1.04/Makefile.PL 2013-08-04 19:42:11.000000000 +0200 +++ new/SOAP-Lite-1.08/Makefile.PL 2013-11-08 18:38:06.000000000 +0100 @@ -6,26 +6,63 @@ use ExtUtils::MakeMaker; my %prereqs = ( + + # Core package "Test::More" => 0, "XML::Parser" => "2.23", "MIME::Base64" => 0, "URI" => 0, - "IO::SessionData" => 1.03, "Scalar::Util" => 0, "Task::Weaken" => 0, # to be sure than weaken works "constant" => 0, # don't force people to upgrade "Class::Inspector" => 0, - "LWP::UserAgent" => 0, - "Crypt::SSLeay" => 0, - "MIME::Lite" => 0, - "HTTP::Daemon" => 0, - "MIME::Parser" => 0, - "IO::File" => 0, - "MIME::Parser" => 0, - "IO::Scalar" => "2.105", - "Data::UUID" => "0.11", + + # Client TCP support + "IO::SessionData" => 1.03, "IO::Socket::SSL" => 0, + + # Compression support for HTTP "Compress::Zlib" => 0, + + # Client HTTP support + "LWP::UserAgent" => 0, + + # Client HTTPS support + "Crypt::SSLeay" => 0, + + # "Standalone HTTP server" + # ,"SOAP::Transport::HTTP::Daemon",{ + # "HTTP::Daemon" => 0, + + # "Apache/mod_perl server" + # "Apache" => 0, + + # "FastCGI server" + # "FCGI" => 0, + + # "POP3 server" + # "Net::POP3" => 0, + # "MIME::Parser" => 0, + + # "MQ transport support" + # "SOAP::Transport::MQ" => 0.712, + + # "JABBER transport support" + # "SOAP::Transport::JABBER" => 0.712, + + # MIME messages + # "MIME::Parser" => 0, + + # DIME messages + # "IO::Scalar" => "2.105", + # "DIME::Tools" => 0.03, + # "Data::UUID" => "0.11", + + #"IO::File" => 0, + + + # "MIME interoperability w/ Axis" + # "MIME::Parser" => "6.106", ); ExtUtils::MakeMaker::WriteMakefile( @@ -36,7 +73,7 @@ 'VERSION_FROM' => 'lib/SOAP/Lite.pm', 'ABSTRACT_FROM' => 'lib/SOAP/Lite.pm', 'PREREQ_PM' => \%prereqs, - 'EXE_FILES' => [ 'bin/SOAPsh.pl', 'bin/XMLRPCsh.pl', 'bin/stubmaker.pl' ], + 'EXE_FILES' => [ 'bin/SOAPsh.pl', 'bin/stubmaker.pl' ], ( $ExtUtils::MakeMaker::VERSION ge '6.48' ? ( @@ -46,7 +83,9 @@ repository => 'https://github.com/redhotpenguin/soaplite', }, keywords => [ 'SOAP', 'SOAP client', 'SOAP server' ], - + no_index => { + directory => [ qw( examples t ) ], + }, }, ) : () diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SOAP-Lite-1.04/bin/XMLRPCsh.pl new/SOAP-Lite-1.08/bin/XMLRPCsh.pl --- old/SOAP-Lite-1.04/bin/XMLRPCsh.pl 2013-05-11 06:16:40.000000000 +0200 +++ new/SOAP-Lite-1.08/bin/XMLRPCsh.pl 1970-01-01 01:00:00.000000000 +0100 @@ -1,78 +0,0 @@ -#!/bin/env perl -#!d:\perl\bin\perl.exe - -# -- XMLRPC::Lite -- soaplite.com -- Copyright (C) 2001 Paul Kulchenko -- - -use strict; -use XMLRPC::Lite; -use Data::Dumper; $Data::Dumper::Terse = 1; $Data::Dumper::Indent = 1; - -@ARGV or die "Usage: $0 endpoint [commands...]\n"; -my $proxy = shift; -my %can; -my $xmlrpc = XMLRPC::Lite->proxy($proxy)->on_fault(sub{}); -print STDERR "Usage: method[(parameters)]\n> "; -while (defined($_ = shift || <>)) { - next unless /\w/; - my($method, $parameters) = /^\s*([.\w]+)(.*)/; - $can{$method} = $xmlrpc->can($method) unless exists $can{$method}; - my $res = $method =~ /\./ ? eval "\$xmlrpc->call(\$method, $parameters)" : eval "\$xmlrpc->$_"; - $@ ? print(STDERR join "\n", "--- SYNTAX ERROR ---", $@, '') : - $can{$method} && !UNIVERSAL::isa($res => 'XMLRPC::SOM') - ? print(STDERR join "\n", "--- METHOD RESULT ---", $res || '', '') : - defined($res) && $res->fault ? print(STDERR join "\n", "--- XMLRPC FAULT ---", @{$res->fault}{'faultCode', 'faultString'}, '') : - !$xmlrpc->transport->is_success ? print(STDERR join "\n", "--- TRANSPORT ERROR ---", $xmlrpc->transport->status, '') : - print(STDERR join "\n", "--- XMLRPC RESULT ---", Dumper($res->paramsall), '') -} continue { - print STDERR "\n> "; -} - -__END__ - -=head1 NAME - -XMLRPCsh.pl - Interactive shell for XMLRPC calls - -=head1 SYNOPSIS - - perl XMLRPCsh.pl http://betty.userland.com/RPC2 - > examples.getStateName(2) - > examples.getStateNames(1,2,3,7) - > examples.getStateList([1,9]) - > examples.getStateStruct({a=>1, b=>24}) - > Ctrl-D (Ctrl-Z on Windows) - -or - - # all parameters after uri will be executed as methods - perl XMLRPCsh.pl http://betty.userland.com/RPC2 examples.getStateName(2) - > Ctrl-D (Ctrl-Z on Windows) - -=head1 DESCRIPTION - -XMLRPCsh.pl is a shell for making XMLRPC calls. It takes one parameter, -endpoint (actually it will tell you about it if you try to run it). -Additional commands can follow. - -After that you'll be able to run any methods of XMLRPC::Lite, like autotype, -readable, etc. You can run it the same way as you do it in -your Perl script. You'll see output from method, result of XMLRPC call, -detailed info on XMLRPC faulure or transport error. - -For full list of available methods see documentation for XMLRPC::Lite. - -Along with methods of XMLRPC::Lite you'll be able (and that's much more -interesting) run any XMLRPC methods you know about on remote server and -see processed results. You can even switch on debugging (with call -something like: C<on_debug(sub{print@_})>) and see XMLRPC code with -headers sent and received. - -=head1 COPYRIGHT - -Copyright (C) 2000 Paul Kulchenko. All rights reserved. - -=head1 AUTHOR - -Paul Kulchenko ([email protected]) - -=cut diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SOAP-Lite-1.04/lib/Apache/SOAP.pm new/SOAP-Lite-1.08/lib/Apache/SOAP.pm --- old/SOAP-Lite-1.04/lib/Apache/SOAP.pm 2013-08-10 05:39:43.000000000 +0200 +++ new/SOAP-Lite-1.08/lib/Apache/SOAP.pm 2013-11-08 18:38:26.000000000 +0100 @@ -13,7 +13,7 @@ use SOAP::Transport::HTTP; @ISA = qw(SOAP::Transport::HTTP::Apache); -our $VERSION = 1.04; +our $VERSION = 1.08; my $server = __PACKAGE__->new; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SOAP-Lite-1.04/lib/SOAP/Constants.pm new/SOAP-Lite-1.08/lib/SOAP/Constants.pm --- old/SOAP-Lite-1.04/lib/SOAP/Constants.pm 2013-08-10 05:39:43.000000000 +0200 +++ new/SOAP-Lite-1.08/lib/SOAP/Constants.pm 2013-11-08 18:38:26.000000000 +0100 @@ -10,7 +10,7 @@ use strict; use SOAP::Lite; -our $VERSION = 1.04; +our $VERSION = 1.08; 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";; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SOAP-Lite-1.04/lib/SOAP/Lite.pm new/SOAP-Lite-1.08/lib/SOAP/Lite.pm --- old/SOAP-Lite-1.04/lib/SOAP/Lite.pm 2013-08-10 05:39:44.000000000 +0200 +++ new/SOAP-Lite-1.08/lib/SOAP/Lite.pm 2013-11-08 18:38:26.000000000 +0100 @@ -17,7 +17,7 @@ use strict; use warnings; -our $VERSION = '1.04'; +our $VERSION = '1.08'; package SOAP::XMLSchemaApacheSOAP::Deserializer; @@ -190,7 +190,7 @@ sub as_boolean { my $self = shift; my($value, $name, $type, $attr) = @_; - # fix [ 1204279 ] Boolean serialization error + # fix [ 1.05279 ] Boolean serialization error return [ $name, {'xsi:type' => 'xsd:boolean', %$attr}, @@ -296,7 +296,7 @@ sub as_boolean { my ($self, $value, $name, $type, $attr) = @_; - # fix [ 1204279 ] Boolean serialization error + # fix [ 1.05279 ] Boolean serialization error return [ $name, { @@ -2122,8 +2122,7 @@ : ['mimepart', {}, $data]; # This below looks like unnecessary bloat!!! # I should probably dereference the mimepart, provide a callback to get the string data - $id =~ s/^<([^>]*)>$/$1/; # string any leading and trailing brackets - $self->ids->{$id} = $part if $id; + $self->ids->{$1} = $part if ($id && $id =~ m/^<([^>]+)>$/); # strip any leading and trailing brackets $self->ids->{$location} = $part if $location; } return $body; @@ -3394,7 +3393,7 @@ foreach my $key (keys %{$namespaces}) { my ($ns,$prefix) = SOAP::Utils::splitqname($key); $self->{'_stub'} .= ' $self->serializer->register_ns("'.$namespaces->{$key}.'","'.$prefix.'");'."\n" - if ($ns eq "xmlns"); + if (defined $ns && ($ns eq "xmlns")); } $self->{'_stub'} .= <<'EOP'; my $som = $self->SUPER::call($method => @parameters); @@ -3897,7 +3896,7 @@ =head1 PERL VERSION WARNING -As of version SOAP::Lite version 1.04, no perl versions before 5.8 will be supported. +As of version SOAP::Lite version 1.05, no perl versions before 5.8 will be supported. SOAP::Lite 0.71 will be the last version of SOAP::Lite running on perl 5.005 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SOAP-Lite-1.04/lib/SOAP/Packager.pm new/SOAP-Lite-1.08/lib/SOAP/Packager.pm --- old/SOAP-Lite-1.04/lib/SOAP/Packager.pm 2013-08-10 05:39:44.000000000 +0200 +++ new/SOAP-Lite-1.08/lib/SOAP/Packager.pm 2013-11-08 18:38:26.000000000 +0100 @@ -11,7 +11,7 @@ use strict; use vars; -our $VERSION = 1.04; +our $VERSION = 1.08; our $SUPPORTED_TYPES = { }; sub BEGIN { diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SOAP-Lite-1.04/lib/SOAP/Test.pm new/SOAP-Lite-1.08/lib/SOAP/Test.pm --- old/SOAP-Lite-1.04/lib/SOAP/Test.pm 2013-08-10 05:39:44.000000000 +0200 +++ new/SOAP-Lite-1.08/lib/SOAP/Test.pm 2013-11-08 18:38:26.000000000 +0100 @@ -9,7 +9,7 @@ package SOAP::Test; use 5.006; -our $VERSION = 1.04; +our $VERSION = 1.08; our $TIMEOUT = 5; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SOAP-Lite-1.04/lib/SOAP/Transport/HTTP.pm new/SOAP-Lite-1.08/lib/SOAP/Transport/HTTP.pm --- old/SOAP-Lite-1.04/lib/SOAP/Transport/HTTP.pm 2013-08-10 05:39:44.000000000 +0200 +++ new/SOAP-Lite-1.08/lib/SOAP/Transport/HTTP.pm 2013-11-08 18:38:26.000000000 +0100 @@ -10,7 +10,7 @@ use strict; -our $VERSION = 1.04; +our $VERSION = 1.08; use SOAP::Lite; use SOAP::Packager; @@ -606,7 +606,7 @@ my $status = defined( $ENV{'SERVER_SOFTWARE'} ) && $ENV{'SERVER_SOFTWARE'} =~ /IIS/ - ? $ENV{SERVER_PROTOCOL} || 'HTTP/1.04' + ? $ENV{SERVER_PROTOCOL} || 'HTTP/1.0' : 'Status:'; my $code = $self->response->code; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SOAP-Lite-1.04/lib/SOAP/Transport/IO.pm new/SOAP-Lite-1.08/lib/SOAP/Transport/IO.pm --- old/SOAP-Lite-1.04/lib/SOAP/Transport/IO.pm 2013-08-10 05:39:44.000000000 +0200 +++ new/SOAP-Lite-1.08/lib/SOAP/Transport/IO.pm 2013-11-08 18:38:26.000000000 +0100 @@ -10,7 +10,7 @@ use strict; -our $VERSION = 1.04; +our $VERSION = 1.08; use IO::File; use SOAP::Lite; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SOAP-Lite-1.04/lib/SOAP/Transport/LOCAL.pm new/SOAP-Lite-1.08/lib/SOAP/Transport/LOCAL.pm --- old/SOAP-Lite-1.04/lib/SOAP/Transport/LOCAL.pm 2013-08-10 05:39:44.000000000 +0200 +++ new/SOAP-Lite-1.08/lib/SOAP/Transport/LOCAL.pm 2013-11-08 18:38:26.000000000 +0100 @@ -11,7 +11,7 @@ use strict; -our $VERSION = 1.04; +our $VERSION = 1.08; # ====================================================================== diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SOAP-Lite-1.04/lib/SOAP/Transport/MAILTO.pm new/SOAP-Lite-1.08/lib/SOAP/Transport/MAILTO.pm --- old/SOAP-Lite-1.04/lib/SOAP/Transport/MAILTO.pm 2013-08-10 05:39:44.000000000 +0200 +++ new/SOAP-Lite-1.08/lib/SOAP/Transport/MAILTO.pm 2013-11-08 18:38:26.000000000 +0100 @@ -11,7 +11,7 @@ use strict; -our $VERSION = 1.04; +our $VERSION = 1.08; use MIME::Lite; use URI; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SOAP-Lite-1.04/lib/SOAP/Transport/POP3.pm new/SOAP-Lite-1.08/lib/SOAP/Transport/POP3.pm --- old/SOAP-Lite-1.04/lib/SOAP/Transport/POP3.pm 2013-08-10 05:39:44.000000000 +0200 +++ new/SOAP-Lite-1.08/lib/SOAP/Transport/POP3.pm 2013-11-08 18:38:26.000000000 +0100 @@ -10,7 +10,7 @@ use strict; -our $VERSION = 1.04; +our $VERSION = 1.08; use Net::POP3; use URI; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SOAP-Lite-1.04/lib/SOAP/Transport/TCP.pm new/SOAP-Lite-1.08/lib/SOAP/Transport/TCP.pm --- old/SOAP-Lite-1.04/lib/SOAP/Transport/TCP.pm 1970-01-01 01:00:00.000000000 +0100 +++ new/SOAP-Lite-1.08/lib/SOAP/Transport/TCP.pm 2013-11-08 18:38:26.000000000 +0100 @@ -0,0 +1,312 @@ +# ====================================================================== +# +# Copyright (C) 2000-2001 Paul Kulchenko ([email protected]) +# SOAP::Lite is free software; you can redistribute it +# and/or modify it under the same terms as Perl itself. +# +# $Id: TCP.pm 384 2011-08-16 17:08:08Z kutterma $ +# +# ====================================================================== + +package SOAP::Transport::TCP; + +use strict; + +our $VERSION = 1.08; + +use URI; +use IO::Socket; +use IO::Select; +use IO::SessionData; + +# ====================================================================== + +package URI::tcp; # ok, let's do 'tcp://' scheme + +our $VERSION = 0.715; + +require URI::_server; +@URI::tcp::ISA=qw(URI::_server); + +# ====================================================================== + +package SOAP::Transport::TCP::Client; + +our $VERSION = 0.715; + +use vars qw(@ISA); +require SOAP::Lite; +@ISA = qw(SOAP::Client); + +sub DESTROY { SOAP::Trace::objects('()') } + +sub new { + my $self = shift; + + unless (ref $self) { + my $class = ref($self) || $self; + my(@params, @methods); + while (@_) { $class->can($_[0]) ? push(@methods, shift() => shift) : push(@params, shift) } + $self = bless {@params} => $class; + while (@methods) { my($method, $params) = splice(@methods,0,2); + $self->$method(ref $params eq 'ARRAY' ? @$params : $params) + } + # use SSL if there is any parameter with SSL_* in the name + $self->SSL(1) if !$self->SSL && grep /^SSL_/, keys %$self; + SOAP::Trace::objects('()'); + } + return $self; +} + +sub SSL { + my $self = shift->new; + @_ ? ($self->{_SSL} = shift, return $self) : return $self->{_SSL}; +} + +sub io_socket_class { shift->SSL ? 'IO::Socket::SSL' : 'IO::Socket::INET' } + +sub syswrite { + my($self, $sock, $data) = @_; + + my $timeout = $sock->timeout; + + my $select = IO::Select->new($sock); + + my $len = length $data; + while (length $data > 0) { + return unless $select->can_write($timeout); + local $SIG{PIPE} = 'IGNORE'; + # added length() to make it work on Mac. Thanks to Robin Fuller <[email protected]> + my $wc = syswrite($sock, $data, length($data)); + if (defined $wc) { + substr($data, 0, $wc) = ''; + } elsif (!IO::SessionData::WOULDBLOCK($!)) { + return; + } + } + return $len; +} + +sub sysread { + my($self, $sock) = @_; + + my $timeout = $sock->timeout; + my $select = IO::Select->new($sock); + + my $result = ''; + my $data; + while (1) { + return unless $select->can_read($timeout); + my $rc = sysread($sock, $data, 4096); + if ($rc) { + $result .= $data; + } elsif (defined $rc) { + return $result; + } elsif (!IO::SessionData::WOULDBLOCK($!)) { + return; + } + } +} + +sub send_receive { + my($self, %parameters) = @_; + my($envelope, $endpoint, $action) = + @parameters{qw(envelope endpoint action)}; + + $endpoint ||= $self->endpoint; + warn "URLs with 'tcp:' scheme are deprecated. Use 'tcp://'. Still continue\n" + if $endpoint =~ s!^tcp:(//)?!tcp://!i && !$1; + my $uri = URI->new($endpoint); + + local($^W, $@, $!); + my $socket = $self->io_socket_class; + eval "require $socket" or Carp::croak $@ unless UNIVERSAL::can($socket => 'new'); + my $sock = $socket->new ( + PeerAddr => $uri->host, PeerPort => $uri->port, Proto => $uri->scheme, %$self + ); + + SOAP::Trace::debug($envelope); + + # bytelength hack. See SOAP::Transport::HTTP.pm for details. + my $bytelength = SOAP::Utils::bytelength($envelope); + $envelope = pack('C0A*', $envelope) + if !$SOAP::Constants::DO_NOT_USE_LWP_LENGTH_HACK && length($envelope) != $bytelength; + + my $result; + if ($sock) { + $sock->blocking(0); + $self->syswrite($sock, $envelope) and + $sock->shutdown(1) and # stop writing + $result = $self->sysread($sock); + } + + SOAP::Trace::debug($result); + + my $code = $@ || $!; + + $self->code($code); + $self->message($code); + $self->is_success(!defined $code || $code eq ''); + $self->status($code); + + return $result; +} + +# ====================================================================== + +package SOAP::Transport::TCP::Server; + +use IO::SessionSet; + +use Carp (); +use vars qw($AUTOLOAD @ISA); +@ISA = qw(SOAP::Server); + +our $VERSION = 0.715; + +sub DESTROY { SOAP::Trace::objects('()') } + +sub new { + my $self = shift; + + unless (ref $self) { + my $class = ref($self) || $self; + + my(@params, @methods); + while (@_) { $class->can($_[0]) ? push(@methods, shift() => shift) : push(@params, shift) } + $self = $class->SUPER::new(@methods); + + # use SSL if there is any parameter with SSL_* in the name + $self->SSL(1) if !$self->SSL && grep /^SSL_/, @params; + + my $socket = $self->io_socket_class; + eval "require $socket" or Carp::croak $@ unless UNIVERSAL::can($socket => 'new'); + $self->{_socket} = $socket->new(Proto => 'tcp', @params) + or Carp::croak "Can't open socket: $!"; + + SOAP::Trace::objects('()'); + } + return $self; +} + +sub SSL { + my $self = shift->new; + @_ ? ($self->{_SSL} = shift, return $self) : return $self->{_SSL}; +} + +sub io_socket_class { shift->SSL ? 'IO::Socket::SSL' : 'IO::Socket::INET' } + +sub AUTOLOAD { + my $method = substr($AUTOLOAD, rindex($AUTOLOAD, '::') + 2); + return if $method eq 'DESTROY'; + + no strict 'refs'; + *$AUTOLOAD = sub { shift->{_socket}->$method(@_) }; + goto &$AUTOLOAD; +} + +sub handle { + my $self = shift->new; + my $sock = $self->{_socket}; + my $session_set = IO::SessionSet->new($sock); + my %data; + while (1) { + my @ready = $session_set->wait($sock->timeout); + for my $session (grep { defined } @ready) { + my $data; + if (my $rc = $session->read($data, 4096)) { + $data{$session} .= $data if $rc > 0; + } else { + $session->write($self->SUPER::handle(delete $data{$session})); + $session->close; + } + } + } +} + +# ====================================================================== + +1; + +__END__ + + +=head1 NAME + +SOAP::Transport::TCP - TCP Transport Support for SOAP::Lite + +=head2 SOAP::Transport::TCP + +The classes provided by this module implement direct TCP/IP communications methods for both clients and servers. + +The connections don't use HTTP or any other higher-level protocol. These classes are selected when the client or server object being created uses an endpoint URI that starts with tcp://. Both client and server classes support using Secure Socket Layer if it is available. If any of the parameters to a new method from either of the classes begins with SSL_ (such as SSL_server in place of Server), the class attempts to load the IO::Socket::SSL package and use it to create socket objects. + +Both of the following classes catch methods that are intended for the socket objects and pass them along, allowing calls such as $client->accept( ) without including the socket class in the inheritance tree. + +=head3 SOAP::Transport::TCP::Client + +Inherits from: L<SOAP::Client>. + +The TCP client class defines only two relevant methods beyond new and send_receive. These methods are: + +=over + +=item SSL(I<optional new boolean value>) + + if ($client->SSL) # Execute only if in SSL mode + +Reflects the attribute that denotes whether the client object is using SSL sockets for communications. + +=item io_socket_class + + ($client->io_socket_class)->new(%options); + +Returns the name of the class to use when creating socket objects for internal use in communications. As implemented, it returns one of IO::Socket::INET or IO::Socket::SSL, depending on the return value of the previous SSL method. + +=back + +If an application creates a subclass that inherits from this client class, either method is a likely target for overloading. + +The new method behaves identically to most other classes, except that it detects the presence of SSL-targeted values in the parameter list and sets the SSL method appropriately if they are present. + +The send_receive method creates a socket of the appropriate class and connects to the configured endpoint. It then sets the socket to nonblocking I/O, sends the message, shuts down the client end of the connection (preventing further writing), and reads the response back from the server. The socket object is discarded after the response and +appropriate status codes are set on the client object. + +=head3 SOAP::Transport::TCP::Server + +Inherits from: L<SOAP::Server>. + +The server class also defines the same two additional methods as in the client class: + +=over + +=item SSL(I<optional new boolean value>) + + if ($client->SSL) # Execute only if in SSL mode + +Reflects the attribute that denotes whether the client object is using SSL sockets for communications. + +=item io_socket_class + + ($client->io_socket_class)->new(%options); + +Returns the name of the class to use when creating socket objects for internal use in communications. As implemented, it returns one of IO::Socket::INET or IO::Socket::SSL, depending on the return value of the previous SSL method. The new method also manages the automatic selection of SSL in the same fashion as the client class does. + +The handle method in this server implementation isn't designed to be called once with each new request. Rather, it is called with no arguments, at which time it enters into an infinite loop of waiting for a connection, reading the request, routing the request and sending back the serialized response. This continues until the process itself is interrupted by an untrapped signal or similar means. + +=back + +=head1 COPYRIGHT + +Copyright (C) 2000-2004 Paul Kulchenko. All rights reserved. + +This library is free software; you can redistribute it and/or modify +it under the same terms as Perl itself. + +=head1 AUTHORS + +Written by Paul Kulchenko. + +Split from SOAP::Lite and SOAP-Transport-TCP packaging by Martin Kutter + +=cut \ No newline at end of file diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SOAP-Lite-1.04/t/38-packager.t new/SOAP-Lite-1.08/t/38-packager.t --- old/SOAP-Lite-1.04/t/38-packager.t 2013-05-11 06:16:40.000000000 +0200 +++ new/SOAP-Lite-1.08/t/38-packager.t 2013-11-08 18:34:33.000000000 +0100 @@ -1,13 +1,14 @@ -#!/bin/env perl +#!/usr/bin/perl + use strict; -use Test; +use warnings; + +use Test::More; BEGIN { - unless(grep /blib/, @INC) { - chdir 't' if -d 't'; - unshift @INC, '../lib' if -d '../lib'; - } - plan tests => 5; + eval { require MIME::Parser; }; + + plan(skip_all => "MIME::Parser not installed") if $@; } my ($mp, $env, $part, @part_data); @@ -167,4 +168,6 @@ #@part_data = $mp->find_part( id => '<[email protected]>' ); #ok($part_data[0] eq '<a><b>c</b></a>'); +done_testing(); + 1; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SOAP-Lite-1.04/t/Issues/rt15176.t new/SOAP-Lite-1.08/t/Issues/rt15176.t --- old/SOAP-Lite-1.04/t/Issues/rt15176.t 1970-01-01 01:00:00.000000000 +0100 +++ new/SOAP-Lite-1.08/t/Issues/rt15176.t 2013-06-13 18:42:10.000000000 +0200 @@ -0,0 +1,11 @@ +use strict; +use warnings; +use Test::More tests => 1; + +use SOAP::Lite; + +# When setting a value that contains wide characters (> U+00ff), it tries to encode as Base64 but then fails +eval { + my $header = SOAP::Header->value("\N{U+00ff}"); +}; +ok (!@$); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SOAP-Lite-1.04/t/Issues/rt53375.t new/SOAP-Lite-1.08/t/Issues/rt53375.t --- old/SOAP-Lite-1.04/t/Issues/rt53375.t 1970-01-01 01:00:00.000000000 +0100 +++ new/SOAP-Lite-1.08/t/Issues/rt53375.t 2013-06-13 18:42:10.000000000 +0200 @@ -0,0 +1,35 @@ +use Test::More tests => 4; +use XML::Parser::Lite; + +my $comment = ''; +my $parser = new XML::Parser::Lite( + Handlers => { + Comment => sub { $comment .= $_[1]; }, + } +); + +my $xml = <<'EOT'; +<?xml version="1.0" encoding="UTF-8"?> +<!-- seed-viewer --> +<test> +</test> +EOT + +eval { + $parser->parse($xml); +}; +ok(! $@); +is($comment, ' seed-viewer '); + +$comment = ''; +$xml = <<'EOT'; +<?xml version="1.0" encoding="UTF-8"?> +<!-- seed_viewer --> +<test> +</test> +EOT +eval { + $parser->parse($xml); +}; +ok(! $@); +is($comment, ' seed_viewer '); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SOAP-Lite-1.04/t/Issues/rt70329.t new/SOAP-Lite-1.08/t/Issues/rt70329.t --- old/SOAP-Lite-1.04/t/Issues/rt70329.t 1970-01-01 01:00:00.000000000 +0100 +++ new/SOAP-Lite-1.08/t/Issues/rt70329.t 2013-06-13 18:42:10.000000000 +0200 @@ -0,0 +1,37 @@ +#!/usr/bin/perl +# +# Tests the error described in rt.cpan.org #70329 +# +# The error came from handling multiref ids, and unconditionally +# overwriting the id attribute +# +# +use Test::More tests => 1; +use 5.006; +use strict; +use warnings; +use SOAP::Lite +trace => [ 'debug' ]; + +my $req1 = SOAP::Lite->new( + readable => 1, + autotype => 0, + proxy => 'LOOPBACK://', +); + +# req1 does not generate the XML attribute <item id="0"> it just generates +# <item> + +my $content = SOAP::Data->new( + name => 'item', + attr => { "id" => 1 }, + value => \SOAP::Data->new( + name => 'foo', + value => 1, + ), + ); + +my $response = $req1->requestMessage(\$content); +my $response_item = $response->dataof("//item"); + +is($content->attr->{ id }, $response_item->attr->{ id }); + diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SOAP-Lite-1.04/t/Issues/rt70381.t new/SOAP-Lite-1.08/t/Issues/rt70381.t --- old/SOAP-Lite-1.04/t/Issues/rt70381.t 1970-01-01 01:00:00.000000000 +0100 +++ new/SOAP-Lite-1.08/t/Issues/rt70381.t 2013-06-13 18:42:10.000000000 +0200 @@ -0,0 +1,32 @@ +use Test::More; + +if (not $ENV{PROFILE_PERFORMANCE}) { + plan ('skip_all' => 'This is a performance test. Set PROFILE_PERFORMANCE env var to a true value to run'); + exit 1; +} +plan qw(no_plan); + +use SOAP::Lite; + + +my $content = SOAP::Data->name('test')->uri('http://example.org') + ->value([ + \SOAP::Data->name('level1')->value('value1')->uri('http:/example.org'), + \SOAP::Data->name('level1')->value('value1')->uri('http:/example.org'), + \SOAP::Data->name('level1')->value('value1')->uri('http:/example.org'), + \SOAP::Data->name('level1')->value('value1')->uri('http:/example.org'), + \SOAP::Data->name('level1')->value('value1')->uri('http:/example.org'), + \SOAP::Data->name('level1')->value('value1')->uri('http:/example.org'), + \SOAP::Data->name('level1')->value('value1')->uri('http:/example.org'), + \SOAP::Data->name('level1')->value('value1')->uri('http:/example.org'), + \SOAP::Data->name('level1')->value('value1')->uri('http:/example.org'), + \SOAP::Data->name('level1')->value('value1')->uri('http:/example.org'), + ]); + +my $soap = SOAP::Lite->proxy('loopback://'); + +for (1..100) { + my $response = $soap->call('test', \$content); +} + + diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SOAP-Lite-1.04/t/Issues/rt72836.t new/SOAP-Lite-1.08/t/Issues/rt72836.t --- old/SOAP-Lite-1.04/t/Issues/rt72836.t 1970-01-01 01:00:00.000000000 +0100 +++ new/SOAP-Lite-1.08/t/Issues/rt72836.t 2013-06-13 18:42:10.000000000 +0200 @@ -0,0 +1,60 @@ +use strict; +use warnings; + +package DoThingsWithStuff; + +use SOAP::Lite; +our @ISA = qw(SOAP::Server::Parameters); + +sub new { + my ( $class ) = @_; + my $self = bless {}, ref($class) || $class; + $self; +} + +sub do_something { + my $self = shift; + my $som = pop; + #$som->context->serializer->encodingStyle(""); # does adding this affect the fix? + return SOAP::Data->name(wotsit => "doofer"); +} + +package main; + +use Test::More; +use SOAP::Lite; + +eval { + require Test::XML; +}; +if ($@) { + plan skip_all => 'Cannot test without Test::XML ' . $@; + exit 0; +} + + +my $req11 = '<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/"; xmlns:urn="urn:Something"><soapenv:Header/><soapenv:Body><urn:do_something><stuff>things</stuff></urn:do_something></soapenv:Body></soapenv:Envelope>'; + +my $req12 = '<soapenv:Envelope xmlns:soapenv="http://www.w3.org/2003/05/soap-envelope"; xmlns:urn="urn:Something"><soapenv:Header/><soapenv:Body><urn:do_something><stuff>things</stuff></urn:do_something></soapenv:Body></soapenv:Envelope>'; + +my $expected_11 = '<?xml version="1.0" encoding="UTF-8"?><soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"; xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/"; xmlns:xsd="http://www.w3.org/2001/XMLSchema"; soap:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"; xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/";><soap:Body><do_somethingResponse xmlns="urn:Something"><wotsit xsi:type="xsd:string">doofer</wotsit></do_somethingResponse></soap:Body></soap:Envelope>'; + +my $expected_12 = '<?xml version="1.0" encoding="UTF-8"?><soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"; xmlns:soapenc="http://www.w3.org/2003/05/soap-encoding"; xmlns:xsd="http://www.w3.org/2001/XMLSchema"; soap:encodingStyle="http://www.w3.org/2003/05/soap-encoding"; xmlns:soap="http://www.w3.org/2003/05/soap-envelope";><soap:Body><do_somethingResponse xmlns="urn:Something"><wotsit xsi:type="xsd:string">doofer</wotsit></do_somethingResponse></soap:Body></soap:Envelope>'; + +my $t = DoThingsWithStuff->new; + +my $s = SOAP::Server->new; +$s->dispatch_with({ + "urn:Something" => $t +}); + +my $res_11_1 = $s->handle($req11); +Test::XML::is_xml($res_11_1, $expected_11, "Got correct SOAP 1.1 response"); + +my $res_12 = $s->handle($req12); +Test::XML::is_xml($res_12, $expected_12, "Got correct SOAP 1.2 response"); + +my $res_11_2 = $s->handle($req11); +Test::XML::is_xml($res_11_2, $expected_11, "Got correct SOAP 1.1 response after processing a SOAP 1.2 request"); + +done_testing; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SOAP-Lite-1.04/t/Issues/rt74029.t new/SOAP-Lite-1.08/t/Issues/rt74029.t --- old/SOAP-Lite-1.04/t/Issues/rt74029.t 1970-01-01 01:00:00.000000000 +0100 +++ new/SOAP-Lite-1.08/t/Issues/rt74029.t 2013-06-13 18:42:10.000000000 +0200 @@ -0,0 +1,46 @@ +#!/usr/bin/perl +use Test::More skip_all => 'not fixed yet'; + +exit; + +use Data::Dumper; +our %stack = (); + + +use SOAP::Lite +trace => 'all'; +use Storable qw(nstore retrieve); + +use B 'svref_2object'; +use Symbol 'qualify_to_ref'; + +sub change_depth_warn { + my($subname, $limit) = @_; + my $subref = \&$subname; + my $gv = svref_2object($subref)->GV; + my $lineno = 0; + + no warnings 'redefine'; + *{ qualify_to_ref $subname } = sub { + if( $gv->CV->DEPTH % $limit == 0 ) { + $lineno = do { + my $i = 0; + 1 while caller $i++; + (caller($i - 2))[2] + } unless $lineno; + die sprintf "Deep recursion on subroutine '%s' at %s line %d.\n", join('::', $gv->STASH->NAME, $gv->NAME), $0, $lineno; + } + &$subref(@_); + }; + } + +my $obj = retrieve("$0.stored"); +print Dumper $obj; + +change_depth_warn("SOAP::Serializer::encode_object", 100); + +my $ser = SOAP::Serializer->new( readable => 1); +$ser->autotype(0); +print $ser->freeform($obj); + +ok(1); +done_testing(); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SOAP-Lite-1.04/t/Issues/rt74308.t new/SOAP-Lite-1.08/t/Issues/rt74308.t --- old/SOAP-Lite-1.04/t/Issues/rt74308.t 1970-01-01 01:00:00.000000000 +0100 +++ new/SOAP-Lite-1.08/t/Issues/rt74308.t 2013-06-13 18:42:10.000000000 +0200 @@ -0,0 +1,10 @@ +use strict; +use warnings; +use Test::More tests => 1; + +use SOAP::Lite; +eval { + my $soap = SOAP::Lite->service("file:$0.wsdl"); +}; + +ok (! $@); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SOAP-Lite-1.04/t/Issues/rt75169.t new/SOAP-Lite-1.08/t/Issues/rt75169.t --- old/SOAP-Lite-1.04/t/Issues/rt75169.t 1970-01-01 01:00:00.000000000 +0100 +++ new/SOAP-Lite-1.08/t/Issues/rt75169.t 2013-06-13 18:42:10.000000000 +0200 @@ -0,0 +1,16 @@ +use strict; +use warnings; +use Test::More; +use SOAP::Lite; +use utf8; +use Encode; + +my $data = "ü"; +my $soap = SOAP::Serializer->new(); +$soap->autotype(0); +my $xml = $soap->envelope( freeform => "$data" ); +my ( $cycled ) = values %{ SOAP::Deserializer->deserialize( $xml )->body }; +is( length( $data ), length( $cycled ), "UTF-8 string is the same after serializing" ); + + +done_testing; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SOAP-Lite-1.04/t/Issues/rt78588.t new/SOAP-Lite-1.08/t/Issues/rt78588.t --- old/SOAP-Lite-1.04/t/Issues/rt78588.t 1970-01-01 01:00:00.000000000 +0100 +++ new/SOAP-Lite-1.08/t/Issues/rt78588.t 2013-06-13 18:42:10.000000000 +0200 @@ -0,0 +1,15 @@ +use strict; +use warnings; + +use Test::More; +use SOAP::Lite; +use utf8; + +my $data = "mü\x{2013}"; +my $serializer = SOAP::Serializer->new(); +$serializer->typelookup()->{ base64Binary } = [ 10, sub { 0 }, undef]; +my $xml = $serializer->envelope( freeform => $data ); +my ( $cycled ) = values %{ SOAP::Deserializer->deserialize( $xml )->body }; + +is( $data, $cycled, "UTF-8 string is the same after serializing" ); +done_testing; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SOAP-Lite-1.04/t/SOAP/Transport/HTTP/CGI/test_server.pl new/SOAP-Lite-1.08/t/SOAP/Transport/HTTP/CGI/test_server.pl --- old/SOAP-Lite-1.04/t/SOAP/Transport/HTTP/CGI/test_server.pl 2013-05-11 06:16:40.000000000 +0200 +++ new/SOAP-Lite-1.08/t/SOAP/Transport/HTTP/CGI/test_server.pl 1970-01-01 01:00:00.000000000 +0100 @@ -1,18 +0,0 @@ -package main; -use strict; use warnings; -use SOAP::Lite; -use SOAP::Transport::HTTP; - -my $soap = SOAP::Transport::HTTP::CGI->new( - dispatch_to => 'main' -); - -$soap->handle(); - -sub test { - my ($self, $envelope) = @_; - return SOAP::Data->name('testResult')->value('Überall')->type('string'); - -} - -1; \ No newline at end of file diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SOAP-Lite-1.04/t/SOAP/Transport/LOOPBACK.t new/SOAP-Lite-1.08/t/SOAP/Transport/LOOPBACK.t --- old/SOAP-Lite-1.04/t/SOAP/Transport/LOOPBACK.t 1970-01-01 01:00:00.000000000 +0100 +++ new/SOAP-Lite-1.08/t/SOAP/Transport/LOOPBACK.t 2013-06-13 18:42:10.000000000 +0200 @@ -0,0 +1,18 @@ +use strict; +use warnings; +use Test::More qw(no_plan); + +use_ok qw(SOAP::Transport::LOOPBACK); + +my $transport; + +ok $transport = SOAP::Transport::LOOPBACK::Client->new(); +is $transport, $transport->new() , '$transport->new() returns $transport'; + +use_ok qw(SOAP::Lite); + +my $soap = SOAP::Lite->proxy('loopback:main'); +my $som = $soap->call('test', 'Zumsel'); +die $som->fault()->{ faultstring } if $som->fault(); +is $som->result, 'Zumsel', 'result is Zumsel'; + -- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
