diff options
Diffstat (limited to 'scripts/vyatta-interfaces.pl')
| -rw-r--r-- | scripts/vyatta-interfaces.pl | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/scripts/vyatta-interfaces.pl b/scripts/vyatta-interfaces.pl index 36d811f..dde54c7 100644 --- a/scripts/vyatta-interfaces.pl +++ b/scripts/vyatta-interfaces.pl @@ -231,6 +231,14 @@ sub is_ip_v4_or_v6 { my $ip = NetAddr::IP->new($addr); if (defined $ip && $ip->version() == 4) { + # + # the call to IP->new() will accept 1.1 and consider + # it to be 1.1.0.0, so add a check to force all + # 4 octets to be defined + # + if ($addr !~ /\d+\.\d+\.\d+\.\d+/) { + return undef; + } return 4; } $ip = NetAddr::IP->new6($addr); |