In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/f9c28d373757224cbb87b86a551afd50f8f361d5?hp=b94c7836b478548336612cc06c8980319145cb35>
- Log ----------------------------------------------------------------- commit f9c28d373757224cbb87b86a551afd50f8f361d5 Author: Chris 'BinGOs' Williams <[email protected]> Date: Mon Jan 12 11:02:38 2015 +0000 Update IO-Socket-IP to CPAN version 0.36 [DELTA] 0.36 2014/01/10 20:54:58 [BUGFIXES] * Always bind() on MSWin32 because Windows doesn't like it if we listen() having not done so (RT101396) M Porting/Maintainers.pl M cpan/IO-Socket-IP/lib/IO/Socket/IP.pm commit b495b81bd2099f4fc3660f7ef257d6bdd4b1b90e Author: Chris 'BinGOs' Williams <[email protected]> Date: Mon Jan 12 11:01:41 2015 +0000 Update Digest-SHA to CPAN version 5.95 [DELTA] 5.95 Sat Jan 10 12:15:36 MST 2015 - modified the bit-ordering test (ref. t/bitorder.t) -- supplied directory-change preamble for CORE builds M MANIFEST M Porting/Maintainers.pl M cpan/Digest-SHA/lib/Digest/SHA.pm M cpan/Digest-SHA/shasum M cpan/Digest-SHA/src/sha.c M cpan/Digest-SHA/src/sha.h M cpan/Digest-SHA/src/sha64bit.c M cpan/Digest-SHA/src/sha64bit.h D cpan/Digest-SHA/t/bit-order.t A cpan/Digest-SHA/t/bitorder.t ----------------------------------------------------------------------- Summary of changes: MANIFEST | 2 +- Porting/Maintainers.pl | 4 ++-- cpan/Digest-SHA/lib/Digest/SHA.pm | 2 +- cpan/Digest-SHA/shasum | 6 +++--- cpan/Digest-SHA/src/sha.c | 4 ++-- cpan/Digest-SHA/src/sha.h | 4 ++-- cpan/Digest-SHA/src/sha64bit.c | 4 ++-- cpan/Digest-SHA/src/sha64bit.h | 4 ++-- cpan/Digest-SHA/t/bit-order.t | 15 --------------- cpan/Digest-SHA/t/bitorder.t | 29 +++++++++++++++++++++++++++++ cpan/IO-Socket-IP/lib/IO/Socket/IP.pm | 10 ++++++++-- 11 files changed, 52 insertions(+), 32 deletions(-) delete mode 100644 cpan/Digest-SHA/t/bit-order.t create mode 100644 cpan/Digest-SHA/t/bitorder.t diff --git a/MANIFEST b/MANIFEST index 5ea3222..6502631 100644 --- a/MANIFEST +++ b/MANIFEST @@ -713,7 +713,7 @@ cpan/Digest-SHA/src/sha.h Digest::SHA extension cpan/Digest-SHA/t/allfcns.t See if Digest::SHA works cpan/Digest-SHA/t/base64.t See if Digest::SHA works cpan/Digest-SHA/t/bitbuf.t See if Digest::SHA works -cpan/Digest-SHA/t/bit-order.t +cpan/Digest-SHA/t/bitorder.t cpan/Digest-SHA/t/fips180-4.t See if Digest::SHA works cpan/Digest-SHA/t/fips198.t See if Digest::SHA works cpan/Digest-SHA/t/gglong.t See if Digest::SHA works diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index db8e83e..955c095 100755 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -365,7 +365,7 @@ use File::Glob qw(:case); }, 'Digest::SHA' => { - 'DISTRIBUTION' => 'MSHELOR/Digest-SHA-5.94.tar.gz', + 'DISTRIBUTION' => 'MSHELOR/Digest-SHA-5.95.tar.gz', 'FILES' => q[cpan/Digest-SHA], 'EXCLUDED' => [ qw( t/pod.t @@ -632,7 +632,7 @@ use File::Glob qw(:case); }, 'IO::Socket::IP' => { - 'DISTRIBUTION' => 'PEVANS/IO-Socket-IP-0.35.tar.gz', + 'DISTRIBUTION' => 'PEVANS/IO-Socket-IP-0.36.tar.gz', 'FILES' => q[cpan/IO-Socket-IP], 'EXCLUDED' => [ qr{^examples/}, diff --git a/cpan/Digest-SHA/lib/Digest/SHA.pm b/cpan/Digest-SHA/lib/Digest/SHA.pm index bbc1e22..3abca3d 100644 --- a/cpan/Digest-SHA/lib/Digest/SHA.pm +++ b/cpan/Digest-SHA/lib/Digest/SHA.pm @@ -8,7 +8,7 @@ use vars qw($VERSION @ISA @EXPORT @EXPORT_OK); use Fcntl; use integer; -$VERSION = '5.94'; +$VERSION = '5.95'; require Exporter; require DynaLoader; diff --git a/cpan/Digest-SHA/shasum b/cpan/Digest-SHA/shasum index 0a12562..14ddd60 100644 --- a/cpan/Digest-SHA/shasum +++ b/cpan/Digest-SHA/shasum @@ -4,8 +4,8 @@ ## ## Copyright (C) 2003-2015 Mark Shelor, All Rights Reserved ## - ## Version: 5.94 - ## Sat Jan 10 00:45:28 MST 2015 + ## Version: 5.95 + ## Sat Jan 10 12:15:36 MST 2015 ## shasum SYNOPSIS adapted from GNU Coreutils sha1sum. Add ## "-a" option for algorithm selection, @@ -101,7 +101,7 @@ L<Digest::SHA::PurePerl>. END_OF_POD -my $VERSION = "5.94"; +my $VERSION = "5.95"; sub usage { my($err, $msg) = @_; diff --git a/cpan/Digest-SHA/src/sha.c b/cpan/Digest-SHA/src/sha.c index c0daaaa..ea0d41b 100644 --- a/cpan/Digest-SHA/src/sha.c +++ b/cpan/Digest-SHA/src/sha.c @@ -5,8 +5,8 @@ * * Copyright (C) 2003-2015 Mark Shelor, All Rights Reserved * - * Version: 5.94 - * Sat Jan 10 00:45:28 MST 2015 + * Version: 5.95 + * Sat Jan 10 12:15:36 MST 2015 * */ diff --git a/cpan/Digest-SHA/src/sha.h b/cpan/Digest-SHA/src/sha.h index 5901811..e63d4b7 100644 --- a/cpan/Digest-SHA/src/sha.h +++ b/cpan/Digest-SHA/src/sha.h @@ -5,8 +5,8 @@ * * Copyright (C) 2003-2015 Mark Shelor, All Rights Reserved * - * Version: 5.94 - * Sat Jan 10 00:45:28 MST 2015 + * Version: 5.95 + * Sat Jan 10 12:15:36 MST 2015 * */ diff --git a/cpan/Digest-SHA/src/sha64bit.c b/cpan/Digest-SHA/src/sha64bit.c index d5a6a6f..2fa0dda 100644 --- a/cpan/Digest-SHA/src/sha64bit.c +++ b/cpan/Digest-SHA/src/sha64bit.c @@ -5,8 +5,8 @@ * * Copyright (C) 2003-2015 Mark Shelor, All Rights Reserved * - * Version: 5.94 - * Sat Jan 10 00:45:28 MST 2015 + * Version: 5.95 + * Sat Jan 10 12:15:36 MST 2015 * */ diff --git a/cpan/Digest-SHA/src/sha64bit.h b/cpan/Digest-SHA/src/sha64bit.h index 573594b..ce89548 100644 --- a/cpan/Digest-SHA/src/sha64bit.h +++ b/cpan/Digest-SHA/src/sha64bit.h @@ -5,8 +5,8 @@ * * Copyright (C) 2003-2015 Mark Shelor, All Rights Reserved * - * Version: 5.94 - * Sat Jan 10 00:45:28 MST 2015 + * Version: 5.95 + * Sat Jan 10 12:15:36 MST 2015 * * The following macros supply placeholder values that enable the * sha.c module to successfully compile when 64-bit integer types diff --git a/cpan/Digest-SHA/t/bit-order.t b/cpan/Digest-SHA/t/bit-order.t deleted file mode 100644 index 5dd2ebc..0000000 --- a/cpan/Digest-SHA/t/bit-order.t +++ /dev/null @@ -1,15 +0,0 @@ -use strict; -use Digest::SHA; - -my $s1 = Digest::SHA->new; -my $s2 = Digest::SHA->new; -my $d1 = $s1->add_bits("110")->hexdigest; -my $d2 = $s2->add_bits("1")->add_bits("1")->add_bits("0")->hexdigest; - -my $numtests = 1; -print "1..$numtests\n"; - -for (1 .. $numtests) { - print "not " unless $d1 eq $d2; - print "ok ", $_, "\n"; -} diff --git a/cpan/Digest-SHA/t/bitorder.t b/cpan/Digest-SHA/t/bitorder.t new file mode 100644 index 0000000..2cd2dbf --- /dev/null +++ b/cpan/Digest-SHA/t/bitorder.t @@ -0,0 +1,29 @@ +use strict; + +my $MODULE; + +BEGIN { + $MODULE = (-d "src") ? "Digest::SHA" : "Digest::SHA::PurePerl"; + eval "require $MODULE" || die $@; + $MODULE->import(qw()); +} + +BEGIN { + if ($ENV{PERL_CORE}) { + chdir 't' if -d 't'; + @INC = '../lib'; + } +} + +my $s1 = $MODULE->new; +my $s2 = $MODULE->new; +my $d1 = $s1->add_bits("110")->hexdigest; +my $d2 = $s2->add_bits("1")->add_bits("1")->add_bits("0")->hexdigest; + +my $numtests = 1; +print "1..$numtests\n"; + +for (1 .. $numtests) { + print "not " unless $d1 eq $d2; + print "ok ", $_, "\n"; +} diff --git a/cpan/IO-Socket-IP/lib/IO/Socket/IP.pm b/cpan/IO-Socket-IP/lib/IO/Socket/IP.pm index 8141761..5435f4f 100644 --- a/cpan/IO-Socket-IP/lib/IO/Socket/IP.pm +++ b/cpan/IO-Socket-IP/lib/IO/Socket/IP.pm @@ -7,7 +7,7 @@ package IO::Socket::IP; # $VERSION needs to be set before use base 'IO::Socket' # - https://rt.cpan.org/Ticket/Display.html?id=92107 BEGIN { - $VERSION = '0.35'; + $VERSION = '0.36'; } use strict; @@ -441,11 +441,17 @@ sub _io_socket_ip__configure ref $info eq "ARRAY" or croak "Expected 'LocalAddrInfo' to be an ARRAY ref"; @localinfos = @$info; } - elsif( defined $arg->{LocalHost} or defined $arg->{LocalService} ) { + elsif( defined $arg->{LocalHost} or + defined $arg->{LocalService} or + HAVE_MSWIN32 and $arg->{Listen} ) { # Either may be undef my $host = $arg->{LocalHost}; my $service = $arg->{LocalService}; + unless ( defined $host or defined $service ) { + $service = 0; + } + local $1; # Placate a taint-related bug; [perl #67962] defined $service and $service =~ s/\((\d+)\)$// and my $fallback_port = $1; -- Perl5 Master Repository
