This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Socket updated to CPAN version 2.018
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Mon, 16 Feb 2015 14:53:54 +0000 (14:53 +0000)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Mon, 16 Feb 2015 14:53:54 +0000 (14:53 +0000)
  [DELTA]

2.018   2015/02/12 13:42:41
        [BUGFIXES]
         * Fix for "addr is not a string" test to use SvPOKp() before 5.18

Porting/Maintainers.pl
cpan/Socket/Socket.pm
cpan/Socket/Socket.xs

index d428a23..846403e 100755 (executable)
@@ -987,7 +987,7 @@ use File::Glob qw(:case);
     },
 
     'Socket' => {
-        'DISTRIBUTION' => 'PEVANS/Socket-2.017.tar.gz',
+        'DISTRIBUTION' => 'PEVANS/Socket-2.018.tar.gz',
         'FILES'        => q[cpan/Socket],
     },
 
index 6a52bcf..20657e8 100644 (file)
@@ -3,7 +3,7 @@ package Socket;
 use strict;
 { use 5.006001; }
 
-our $VERSION = '2.017';
+our $VERSION = '2.018';
 
 =head1 NAME
 
index 702e4fa..60f5754 100644 (file)
@@ -545,7 +545,7 @@ static void xs_getnameinfo(pTHX_ CV *cv)
        want_host = !(xflags & NIx_NOHOST);
        want_serv = !(xflags & NIx_NOSERV);
 
-       if(!SvPOK(addr))
+       if(!SvPOKp(addr))
                croak("addr is not a string");
 
        addr_len = SvCUR(addr);