Make Socket.pm 'use strict' clean
authorPaul "LeoNerd" Evans <leonerd@leonerd.org.uk>
Wed, 15 Dec 2010 15:13:19 +0000 (15:13 +0000)
committerJesse Vincent <jesse@bestpractical.com>
Mon, 3 Jan 2011 04:21:35 +0000 (12:21 +0800)
ext/Socket/Socket.pm

index e3bd0ba..4a57929 100644 (file)
@@ -1,5 +1,7 @@
 package Socket;
 
+use strict;
+
 our($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
 $VERSION = "1.92";
 
@@ -609,6 +611,8 @@ if( !defined &getaddrinfo ) {
 
    foreach my $name ( keys %constants ) {
       my $value = $constants{$_};
+
+      no strict 'refs';
       defined &$name or *$name = sub () { $value };
    }
 
@@ -626,8 +630,6 @@ if( !defined &getaddrinfo ) {
 # getaddrinfo(3) function in libc; and are used to emulate it for the AF_INET
 # family
 
-use strict;
-
 # Borrowed from Regexp::Common::net
 my $REGEXP_IPv4_DECIMAL = qr/25[0-5]|2[0-4][0-9]|1?[0-9][0-9]{1,2}/;
 my $REGEXP_IPv4_DOTTEDQUAD = qr/$REGEXP_IPv4_DECIMAL\.$REGEXP_IPv4_DECIMAL\.$REGEXP_IPv4_DECIMAL\.$REGEXP_IPv4_DECIMAL/;