[libsoap-lite-perl] 01/04: New upstream version 1.26
Xavier Guimard
xguimard-guest at moszumanska.debian.org
Sun Dec 31 10:38:00 UTC 2017
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.guimard at 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.
-git at github.com:redhotpenguin/soaplite.git
+git at 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-Lite at 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.
-git at github.com:redhotpenguin/soaplite.git
+git at 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
More information about the Pkg-perl-cvs-commits
mailing list