fix: guard validation helpers against undef IP
This commit is contained in:
@@ -71,6 +71,7 @@ sub is_valid_url_length {
|
|||||||
|
|
||||||
sub _is_valid_ipv4 {
|
sub _is_valid_ipv4 {
|
||||||
my ( $self, $ip ) = @_;
|
my ( $self, $ip ) = @_;
|
||||||
|
return 0 unless defined $ip;
|
||||||
return 0 unless $ip =~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)$/;
|
return 0 unless $ip =~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)$/;
|
||||||
my ( $a, $b, $c, $d ) = ( $1, $2, $3, $4 );
|
my ( $a, $b, $c, $d ) = ( $1, $2, $3, $4 );
|
||||||
return
|
return
|
||||||
|
|||||||
Reference in New Issue
Block a user