[perl.git] branch tonyc/getaddrname, updated. v5.13.7-460-ga9f3b78

[Tony Cook]

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 <leon...@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