[prev in list] [next in list] [prev in thread] [next in thread] 

List:       perl5-changes
Subject:    [perl.git]  branch tonyc/getaddrname, updated. v5.13.7-460-ga9f3b78
From:       "Tony Cook" <tony () develop-help ! com>
Date:       2010-12-16 12:31:08
Message-ID: E1PTCzE-0008Nc-Q5 () camel ! ams6 ! corp ! booking ! com
[Download RAW message or body]

In perl.git, the branch tonyc/getaddrname has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/a9f3b786722af74100457834ec90fc7d575a5990?hp=87ae5a89c7539b59da70c23426877739e0d894ce>


- Log -----------------------------------------------------------------
commit a9f3b786722af74100457834ec90fc7d575a5990
Author: Paul "LeoNerd" Evans <leonerd@leonerd.org.uk>
Date:   Thu Dec 16 11:49:49 2010 +0000

    Bugfix to Socket.pm 's GAI fallback constants - use $name rather than $_
-----------------------------------------------------------------------

Summary of changes:
 ext/Socket/Socket.pm |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/ext/Socket/Socket.pm b/ext/Socket/Socket.pm
index 8be9320..1dec6db 100644
--- a/ext/Socket/Socket.pm
+++ b/ext/Socket/Socket.pm
@@ -610,7 +610,7 @@ if( !defined &getaddrinfo ) {
    );
 
    foreach my $name ( keys %constants ) {
-      my $value = $constants{$_};
+      my $value = $constants{$name};
 
       no strict 'refs';
       defined &$name or *$name = sub () { $value };

--
Perl5 Master Repository


[prev in list] [next in list] [prev in thread] [next in thread]