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

diff --git a/ext/Socket/Socket.pm b/ext/Socket/Socket.pm
index 4a57929..6e0f95b 100644 (file)
--- 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 };