In perl.git, the branch smoke-me/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