This is an automated email from the git hooks/post-receive script. xguimard-guest pushed a commit to branch master in repository libsoap-lite-perl.
commit cf0b04cc1b4663ba6b79fa7fed4e351abb3f0a4f Author: Xavier Guimard <Xavier Guimard x.guim...@free.fr> Date: Sun Dec 31 11:32:15 2017 +0100 New upstream version 1.26 --- Changes | 13 ++++++++ HACKING | 2 +- META.json | 10 +++--- META.yml | 6 ++-- Makefile.PL | 2 +- bin/SOAPsh.pl | 3 ++ bin/stubmaker.pl | 2 ++ dist.ini | 8 +++-- lib/Apache/SOAP.pm | 2 +- lib/SOAP/Constants.pm | 2 +- lib/SOAP/Lite.pm | 42 +++++++++++++++++--------- lib/SOAP/Lite/Deserializer/XMLSchema1999.pm | 2 ++ lib/SOAP/Lite/Deserializer/XMLSchema2001.pm | 3 ++ lib/SOAP/Lite/Deserializer/XMLSchemaSOAP1_1.pm | 2 ++ lib/SOAP/Lite/Deserializer/XMLSchemaSOAP1_2.pm | 3 ++ lib/SOAP/Lite/Packager.pm | 3 ++ lib/SOAP/Lite/Utils.pm | 2 ++ lib/SOAP/Packager.pm | 2 +- lib/SOAP/Test.pm | 2 +- lib/SOAP/Transport/HTTP.pm | 2 +- lib/SOAP/Transport/IO.pm | 2 +- lib/SOAP/Transport/LOCAL.pm | 3 +- lib/SOAP/Transport/LOOPBACK.pm | 2 ++ lib/SOAP/Transport/MAILTO.pm | 3 +- lib/SOAP/Transport/POP3.pm | 2 +- lib/SOAP/Transport/TCP.pm | 2 +- t/010-serializer.t | 9 +++++- 27 files changed, 95 insertions(+), 41 deletions(-) diff --git a/Changes b/Changes index b2f912b..b09cf1b 100644 --- a/Changes +++ b/Changes @@ -15,6 +15,19 @@ http://rt.cpan.org/Public/Dist/Display.html?Name=SOAP-Lite THIS RELEASE ----------------------------------------------------------------------- +1.26 December 30, 2017 + ! typo fix https://anonscm.debian.org/cgit/pkg-perl/packages/libsoap-lite-perl.git/tree/debian/patches/spelling-error.patch + +1.25 December 29, 2017 + ! Bad usage of UNIVERSAL::isa (See RT#62667) + +1.24 December 19, 2017 + + Consistent Versioning https://github.com/redhotpenguin/soaplite/pull/24 + ! Remove is_utf8() check from 78588 + +1.23 December 18, 2017 + ! RT #78588 unicode data not correct encoded + 1.22 August 15, 2017 ! Noindex URI::tcp module [github/JaSei] ! Correct the soap namespace declaration when calling services defined in WSDL [github/waaeer] diff --git a/HACKING b/HACKING index c5569cf..e477807 100644 --- a/HACKING +++ b/HACKING @@ -3,7 +3,7 @@ HACKING Development of SOAP::Lite takes place on GitHub. -g...@github.com:redhotpenguin/soaplite.git +g...@github.com:redhotpenguin/perl-soaplite.git Come on by and fork it and submit a pull request. diff --git a/META.json b/META.json index 0e4005d..4477687 100644 --- a/META.json +++ b/META.json @@ -8,7 +8,7 @@ "Fred Moyer" ], "dynamic_config" : 0, - "generated_by" : "Dist::Zilla version 6.010, CPAN::Meta::Converter version 2.143240", + "generated_by" : "Dist::Zilla version 6.010, CPAN::Meta::Converter version 2.150010", "license" : [ "perl_5" ], @@ -85,11 +85,11 @@ }, "repository" : { "type" : "git", - "url" : "https://github.com/redhotpenguin/soaplite.git", - "web" : "https://github.com/redhotpenguin/soaplite" + "url" : "https://github.com/redhotpenguin/perl-soaplite.git", + "web" : "https://github.com/redhotpenguin/perl-soaplite" } }, - "version" : "1.22", - "x_serialization_backend" : "Cpanel::JSON::XS version 3.0237" + "version" : "1.26", + "x_serialization_backend" : "Cpanel::JSON::XS version 3.0239" } diff --git a/META.yml b/META.yml index f4126dd..3e09b26 100644 --- a/META.yml +++ b/META.yml @@ -14,7 +14,7 @@ build_requires: configure_requires: ExtUtils::MakeMaker: '0' dynamic_config: 0 -generated_by: 'Dist::Zilla version 6.010, CPAN::Meta::Converter version 2.143240' +generated_by: 'Dist::Zilla version 6.010, CPAN::Meta::Converter version 2.150010' license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -47,6 +47,6 @@ requires: perl: v5.6.0 resources: bugtracker: https://rt.cpan.org/Public/Dist/Display.html?Name=SOAP-Lite - repository: https://github.com/redhotpenguin/soaplite.git -version: '1.22' + repository: https://github.com/redhotpenguin/perl-soaplite.git +version: '1.26' x_serialization_backend: 'YAML::Tiny version 1.70' diff --git a/Makefile.PL b/Makefile.PL index c272cf7..d2494be 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -40,7 +40,7 @@ my %WriteMakefileArgs = ( "Test::Warn" => 0, "XML::Parser::Lite" => "0.715" }, - "VERSION" => "1.22", + "VERSION" => "1.26", "test" => { "TESTS" => "t/*.t t/Issues/*.t t/SOAP/*.t t/SOAP/Lite/*.t t/SOAP/Lite/Deserializer/*.t t/SOAP/Schema/*.t t/SOAP/Transport/*.t t/SOAP/Transport/HTTP/*.t" } diff --git a/bin/SOAPsh.pl b/bin/SOAPsh.pl index 9c9f778..c25c115 100644 --- a/bin/SOAPsh.pl +++ b/bin/SOAPsh.pl @@ -4,6 +4,9 @@ # -- SOAP::Lite -- soaplite.com -- Copyright (C) 2001 Paul Kulchenko -- use strict; + +our $VERSION = '1.26'; # VERSION + use SOAP::Lite; use Data::Dumper; $Data::Dumper::Terse = 1; $Data::Dumper::Indent = 1; diff --git a/bin/stubmaker.pl b/bin/stubmaker.pl index a99cf79..9a7c6e1 100644 --- a/bin/stubmaker.pl +++ b/bin/stubmaker.pl @@ -11,6 +11,8 @@ # stubmaker.pl -[vd] <WSDL URL> ################################################### +our $VERSION = '1.26'; # VERSION + use SOAP::Lite; use Getopt::Long; diff --git a/dist.ini b/dist.ini index 12af5bc..3df274c 100644 --- a/dist.ini +++ b/dist.ini @@ -1,5 +1,5 @@ name = SOAP-Lite -version = 1.22 +version = 1.26 author = Pavel Kulchenko author = Randy J Ray author = Byrne Reese @@ -21,6 +21,8 @@ exclude_filename = Makefile.PL [License] +[OurPkgVersion] + [ExecDir] dir = bin @@ -35,8 +37,8 @@ dir = bin [MetaResources] bugtracker.web = https://rt.cpan.org/Public/Dist/Display.html?Name=SOAP-Lite bugtracker.mailto = bug-soap-l...@rt.cpan.org -repository.url = https://github.com/redhotpenguin/soaplite.git -repository.web = https://github.com/redhotpenguin/soaplite +repository.url = https://github.com/redhotpenguin/perl-soaplite.git +repository.web = https://github.com/redhotpenguin/perl-soaplite repository.type = git [ExtraTests] diff --git a/lib/Apache/SOAP.pm b/lib/Apache/SOAP.pm index db3df40..ed802b7 100644 --- a/lib/Apache/SOAP.pm +++ b/lib/Apache/SOAP.pm @@ -13,7 +13,7 @@ use vars qw(@ISA $VERSION); use SOAP::Transport::HTTP; @ISA = qw(SOAP::Transport::HTTP::Apache); -our $VERSION = 1.17; +our $VERSION = '1.26'; # VERSION my $server = __PACKAGE__->new; diff --git a/lib/SOAP/Constants.pm b/lib/SOAP/Constants.pm index a7a4cfc..8545a05 100644 --- a/lib/SOAP/Constants.pm +++ b/lib/SOAP/Constants.pm @@ -10,7 +10,7 @@ package SOAP::Constants; use strict; use SOAP::Lite; -our $VERSION = 1.17; +our $VERSION = '1.26'; # VERSION 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 --git a/lib/SOAP/Lite.pm b/lib/SOAP/Lite.pm index 0dcf3de..79a3519 100644 --- a/lib/SOAP/Lite.pm +++ b/lib/SOAP/Lite.pm @@ -17,7 +17,7 @@ package SOAP::Lite; use strict; use warnings; -our $VERSION = '1.22'; +our $VERSION = '1.26'; # VERSION package SOAP::XMLSchemaApacheSOAP::Deserializer; @@ -806,7 +806,7 @@ sub new { } => $class; $self->typelookup({ 'base64Binary' => - [10, sub {$_[0] =~ /[^\x09\x0a\x0d\x20-\x7f]/ }, 'as_base64Binary'], + [10, sub { $_[0] =~ /[^\x09\x0a\x0d\x20-\x7f]/ }, 'as_base64Binary'], 'zerostring' => [12, sub { $_[0] =~ /^0\d+$/ }, 'as_string'], # int (and actually long too) are subtle: the negative range is one greater... @@ -2480,7 +2480,7 @@ package SOAP::Client; use SOAP::Lite::Utils; -$VERSION = $SOAP::Lite::VERSION; +our $VERSION = '1.26'; # VERSION sub BEGIN { __PACKAGE__->__mk_accessors(qw(endpoint code message is_success status options)); @@ -3524,7 +3524,7 @@ use SOAP::Lite::Utils; use SOAP::Constants; use SOAP::Packager; -use Scalar::Util qw(weaken blessed); +use Scalar::Util qw(weaken blessed reftype); @ISA = qw(SOAP::Cloneable); @@ -3853,15 +3853,27 @@ sub call { my($value) = $_->value; # take first value # fillup parameters - UNIVERSAL::isa($_[$param] => 'SOAP::Data') - ? $_[$param]->SOAP::Data::value($value) - : UNIVERSAL::isa($_[$param] => 'ARRAY') - ? (@{$_[$param]} = @$value) - : UNIVERSAL::isa($_[$param] => 'HASH') - ? (%{$_[$param]} = %$value) - : UNIVERSAL::isa($_[$param] => 'SCALAR') - ? (${$_[$param]} = $$value) - : ($_[$param] = $value) + if ( reftype( $_[$param] ) ) { + if ( reftype( $_[$param] ) eq 'SCALAR' ) { + ${ $_[$param] } = $$value; + } + elsif ( reftype( $_[$param] ) eq 'ARRAY' ) { + @{ $_[$param] } = @$value; + } + elsif ( reftype( $_[$param] ) eq 'HASH' ) { + if ( eval { $_[$param]->isa('SOAP::Data') } ) { + $_[$param]->SOAP::Data::value($value); + } + elsif ( reftype($value) eq 'REF' ) { + %{ $_[$param] } = %$$value; + } + else { %{ $_[$param] } = %$value; } + } + else { $_[$param] = $value; } + } + else { + $_[$param] = $value; + } } } } @@ -4161,7 +4173,7 @@ The default is to not send any additional characters. Allows for the setting of arbitrary attributes on the header object. Keep in mind the requirement that any attributes not natively known to SOAP must be namespace-qualified. -If using $session->call ($method, $callData, $callHeader), SOAP::Lite serializes the informations as +If using $session->call ($method, $callData, $callHeader), SOAP::Lite serializes information as <soap:Envelope> <soap:Header> @@ -5711,7 +5723,7 @@ of this software. Latest development takes place on GitHub.com. Come on by and fork it. -g...@github.com:redhotpenguin/soaplite.git +g...@github.com:redhotpenguin/perl-soaplite.git Also see the HACKING file. diff --git a/lib/SOAP/Lite/Deserializer/XMLSchema1999.pm b/lib/SOAP/Lite/Deserializer/XMLSchema1999.pm index 75304fe..c23a845 100644 --- a/lib/SOAP/Lite/Deserializer/XMLSchema1999.pm +++ b/lib/SOAP/Lite/Deserializer/XMLSchema1999.pm @@ -1,6 +1,8 @@ package SOAP::Lite::Deserializer::XMLSchema1999; use strict; +our $VERSION = '1.26'; # VERSION + use SOAP::Lite::Deserializer::XMLSchemaSOAP1_1; sub anyTypeValue { 'ur-type' } diff --git a/lib/SOAP/Lite/Deserializer/XMLSchema2001.pm b/lib/SOAP/Lite/Deserializer/XMLSchema2001.pm index 6ec4037..ecf8e56 100644 --- a/lib/SOAP/Lite/Deserializer/XMLSchema2001.pm +++ b/lib/SOAP/Lite/Deserializer/XMLSchema2001.pm @@ -1,6 +1,9 @@ package SOAP::Lite::Deserializer::XMLSchema2001; use strict; + +our $VERSION = '1.26'; # VERSION + use SOAP::Lite::Deserializer::XMLSchema1999; use SOAP::Lite::Deserializer::XMLSchemaSOAP1_1; use SOAP::Lite::Deserializer::XMLSchemaSOAP1_2; diff --git a/lib/SOAP/Lite/Deserializer/XMLSchemaSOAP1_1.pm b/lib/SOAP/Lite/Deserializer/XMLSchemaSOAP1_1.pm index f79427a..1389370 100644 --- a/lib/SOAP/Lite/Deserializer/XMLSchemaSOAP1_1.pm +++ b/lib/SOAP/Lite/Deserializer/XMLSchemaSOAP1_1.pm @@ -1,6 +1,8 @@ package SOAP::Lite::Deserializer::XMLSchemaSOAP1_1; use strict; +our $VERSION = '1.26'; # VERSION + sub anyTypeValue { 'ur-type' } sub as_boolean { diff --git a/lib/SOAP/Lite/Deserializer/XMLSchemaSOAP1_2.pm b/lib/SOAP/Lite/Deserializer/XMLSchemaSOAP1_2.pm index 436b2f7..3460678 100644 --- a/lib/SOAP/Lite/Deserializer/XMLSchemaSOAP1_2.pm +++ b/lib/SOAP/Lite/Deserializer/XMLSchemaSOAP1_2.pm @@ -1,5 +1,8 @@ package SOAP::Lite::Deserializer::XMLSchemaSOAP1_2; use strict; + +our $VERSION = '1.26'; # VERSION + use SOAP::Lite::Deserializer::XMLSchemaSOAP1_1; sub anyTypeValue { 'anyType' } diff --git a/lib/SOAP/Lite/Packager.pm b/lib/SOAP/Lite/Packager.pm index f666312..07af2a7 100644 --- a/lib/SOAP/Lite/Packager.pm +++ b/lib/SOAP/Lite/Packager.pm @@ -9,6 +9,9 @@ package SOAP::Lite::Packager; use strict; + +our $VERSION = '1.26'; # VERSION + use vars; use vars qw($SUPPORTED_TYPES); diff --git a/lib/SOAP/Lite/Utils.pm b/lib/SOAP/Lite/Utils.pm index 1470f15..df258fa 100644 --- a/lib/SOAP/Lite/Utils.pm +++ b/lib/SOAP/Lite/Utils.pm @@ -1,6 +1,8 @@ package SOAP::Lite::Utils; use strict; +our $VERSION = '1.26'; # VERSION + sub import { my $caller = caller(); no strict qw(refs); diff --git a/lib/SOAP/Packager.pm b/lib/SOAP/Packager.pm index 18cae22..a2b8ecd 100644 --- a/lib/SOAP/Packager.pm +++ b/lib/SOAP/Packager.pm @@ -11,7 +11,7 @@ package SOAP::Packager; use strict; use vars; -our $VERSION = 1.17; +our $VERSION = '1.26'; # VERSION our $SUPPORTED_TYPES = { }; sub BEGIN { diff --git a/lib/SOAP/Test.pm b/lib/SOAP/Test.pm index 7316170..9dee95e 100644 --- a/lib/SOAP/Test.pm +++ b/lib/SOAP/Test.pm @@ -9,7 +9,7 @@ package SOAP::Test; use 5.006; -our $VERSION = 1.17; +our $VERSION = '1.26'; # VERSION our $TIMEOUT = 5; diff --git a/lib/SOAP/Transport/HTTP.pm b/lib/SOAP/Transport/HTTP.pm index df71c9d..0cae715 100644 --- a/lib/SOAP/Transport/HTTP.pm +++ b/lib/SOAP/Transport/HTTP.pm @@ -10,7 +10,7 @@ package SOAP::Transport::HTTP; use strict; -our $VERSION = 1.17; +our $VERSION = '1.26'; # VERSION use SOAP::Lite; use SOAP::Packager; diff --git a/lib/SOAP/Transport/IO.pm b/lib/SOAP/Transport/IO.pm index ff6e853..8c87e36 100644 --- a/lib/SOAP/Transport/IO.pm +++ b/lib/SOAP/Transport/IO.pm @@ -10,7 +10,7 @@ package SOAP::Transport::IO; use strict; -our $VERSION = 1.17; +our $VERSION = '1.26'; # VERSION use IO::File; use SOAP::Lite; diff --git a/lib/SOAP/Transport/LOCAL.pm b/lib/SOAP/Transport/LOCAL.pm index c0ad99d..e309b5a 100644 --- a/lib/SOAP/Transport/LOCAL.pm +++ b/lib/SOAP/Transport/LOCAL.pm @@ -10,8 +10,7 @@ package SOAP::Transport::LOCAL; use strict; - -our $VERSION = 1.17; +our $VERSION = '1.26'; # VERSION # ====================================================================== diff --git a/lib/SOAP/Transport/LOOPBACK.pm b/lib/SOAP/Transport/LOOPBACK.pm index cf1c9a9..b237edd 100644 --- a/lib/SOAP/Transport/LOOPBACK.pm +++ b/lib/SOAP/Transport/LOOPBACK.pm @@ -15,6 +15,8 @@ use strict; package SOAP::Transport::LOOPBACK::Client; use strict; +our $VERSION = '1.26'; # VERSION + use vars qw(@ISA); use SOAP::Lite; @ISA = qw(SOAP::Client); diff --git a/lib/SOAP/Transport/MAILTO.pm b/lib/SOAP/Transport/MAILTO.pm index 34d9b50..53e9f51 100644 --- a/lib/SOAP/Transport/MAILTO.pm +++ b/lib/SOAP/Transport/MAILTO.pm @@ -10,8 +10,7 @@ package SOAP::Transport::MAILTO; use strict; - -our $VERSION = 1.17; +our $VERSION = '1.26'; # VERSION use MIME::Lite; use URI; diff --git a/lib/SOAP/Transport/POP3.pm b/lib/SOAP/Transport/POP3.pm index e83b3ba..0f92d69 100644 --- a/lib/SOAP/Transport/POP3.pm +++ b/lib/SOAP/Transport/POP3.pm @@ -10,7 +10,7 @@ package SOAP::Transport::POP3; use strict; -our $VERSION = 1.17; +our $VERSION = '1.26'; # VERSION use Net::POP3; use URI; diff --git a/lib/SOAP/Transport/TCP.pm b/lib/SOAP/Transport/TCP.pm index 9c88309..c4a7d30 100644 --- a/lib/SOAP/Transport/TCP.pm +++ b/lib/SOAP/Transport/TCP.pm @@ -12,7 +12,7 @@ package SOAP::Transport::TCP; use strict; -our $VERSION = 1.17; +our $VERSION = '1.26'; # VERSION use URI; use IO::Socket; diff --git a/t/010-serializer.t b/t/010-serializer.t index 8ce1625..5cab8e2 100644 --- a/t/010-serializer.t +++ b/t/010-serializer.t @@ -23,7 +23,7 @@ my @types2001 = qw( ); # types * 3 + extra tests + autotype tests -plan tests => 225; +plan tests => 227; test_serializer('SOAP::XMLSchema1999::Serializer', @types1999); test_serializer('SOAP::XMLSchema2001::Serializer', @types2001); @@ -136,6 +136,7 @@ my %type_of = ( 'P' => 'xsd:string', 'PT' => 'xsd:string', 'PT01S' => 'xsd:duration', + "t\xFCt" => 'xsd:base64Binary', ); while (my ($value, $type) = each %type_of) { @@ -143,3 +144,9 @@ while (my ($value, $type) = each %type_of) { print "# $value => $type (result: $result->[1]->{'xsi:type'})\n"; ok ( $result->[1]->{'xsi:type'} eq $type ); } +use Data::Dumper; +my $unicode_string = "t\N{U+019C}t"; #LATIN CAPITAL LETTER TURNED M +my $result = $serializer->encode_scalar($unicode_string, 'test', undef, {}); +#die "result is " . Dumper($result->[1]); +print "# unicode_string => xsd:base64Binary (result: $result->[1]->{'xsi:type'})\n"; +ok($result->[1]->{'xsi:type'} eq 'xsd:base64Binary'); -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libsoap-lite-perl.git _______________________________________________ Pkg-perl-cvs-commits mailing list Pkg-perl-cvs-commits@lists.alioth.debian.org http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits