diff options
Diffstat (limited to 'cpan/Socket/Socket.pm')
| -rw-r--r-- | cpan/Socket/Socket.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/cpan/Socket/Socket.pm b/cpan/Socket/Socket.pm index b1c78cc31d..a63e16d671 100644 --- a/cpan/Socket/Socket.pm +++ b/cpan/Socket/Socket.pm @@ -3,7 +3,7 @@ package Socket; use strict; { use 5.006001; } -our $VERSION = '2.014'; +our $VERSION = '2.015'; =head1 NAME @@ -935,7 +935,7 @@ if( defined &getaddrinfo ) { # family # Borrowed from Regexp::Common::net -my $REGEXP_IPv4_DECIMAL = qr/25[0-5]|2[0-4][0-9]|1?[0-9]{1,2}/; +my $REGEXP_IPv4_DECIMAL = qr/25[0-5]|2[0-4][0-9]|[0-1]?[0-9]{1,2}/; my $REGEXP_IPv4_DOTTEDQUAD = qr/$REGEXP_IPv4_DECIMAL\.$REGEXP_IPv4_DECIMAL\.$REGEXP_IPv4_DECIMAL\.$REGEXP_IPv4_DECIMAL/; sub fake_makeerr |