In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/aa9ac6cf00899a6f55881d4ca6c1214215dc83ee?hp=252067360f55751e6f3d0ab2ecd19f78dd96b1e7>
- Log ----------------------------------------------------------------- commit aa9ac6cf00899a6f55881d4ca6c1214215dc83ee Author: Tony Cook <[email protected]> Date: Mon Feb 27 11:03:06 2017 +1100 (perl #130856) deal with unpack_sockaddr_un() croaking because pack_sockaddr_un() returned an invalid address. ----------------------------------------------------------------------- Summary of changes: dist/IO/t/cachepropagate-unix.t | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/dist/IO/t/cachepropagate-unix.t b/dist/IO/t/cachepropagate-unix.t index 20c70dd86a..9ec42b0455 100644 --- a/dist/IO/t/cachepropagate-unix.t +++ b/dist/IO/t/cachepropagate-unix.t @@ -24,8 +24,12 @@ my $socketpath = catfile(tempdir( CLEANUP => 1 ), 'testsock'); # https://rt.cpan.org/Ticket/Display.html?id=116819 my $name = eval { pack_sockaddr_un($socketpath) }; -defined $name && (unpack_sockaddr_un($name))[0] eq $socketpath - or plan skip_all => "socketpath too long for sockaddr_un"; +if (defined $name) { + my ($packed_name) = eval { unpack_sockaddr_un($name) }; + if (!defined $packed_name || $packed_name ne $socketpath) { + plan skip_all => "socketpath too long for sockaddr_un"; + } +} plan tests => 15; -- Perl5 Master Repository
