Commit c8ef4b04 authored by Nigel Kukard's avatar Nigel Kukard

Fixed warning for v1.0.x usage of Socket* modules

parent 6944c201
...@@ -31,16 +31,8 @@ use warnings; ...@@ -31,16 +31,8 @@ use warnings;
our $VERSION = "1.000"; our $VERSION = "1.000";
use Socket; use Socket qw(inet_aton);
BEGIN { use Socket6 qw(inet_pton AF_INET6);
if (defined &Socket::inet_pton) {
Socket->import(qw(inet_pton AF_INET6));
} else {
require Socket6;
Socket6->import(qw(inet_pton AF_INET6));
}
};
# Our current error message # Our current error message
my $error = ""; my $error = "";
...@@ -213,6 +205,7 @@ sub _cidr2mask_v6 { ...@@ -213,6 +205,7 @@ sub _cidr2mask_v6 {
# Function to match an v4 address # Function to match an v4 address
sub _ipv4_matcher { sub _ipv4_matcher {
no locale;
my ($self,$test) = @_; my ($self,$test) = @_;
my $mask = $test->_cidr2mask_v4(); my $mask = $test->_cidr2mask_v4();
...@@ -224,6 +217,7 @@ sub _ipv4_matcher { ...@@ -224,6 +217,7 @@ sub _ipv4_matcher {
# Function to match an v6 address # Function to match an v6 address
sub _ipv6_matcher { sub _ipv6_matcher {
no locale;
my ($self,$test) = @_; my ($self,$test) = @_;
my $mask = $test->_cidr2mask_v6(); my $mask = $test->_cidr2mask_v6();
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment