sub pve_verify_cidrv4 {
my ($cidr, $noerr) = @_;
- if ($cidr =~ m!^(?:$IPV4RE)(?:/(\d+))$! && ($1 > 7) && ($1 < 32)) {
+ if ($cidr =~ m!^(?:$IPV4RE)(?:/(\d+))$! && ($1 > 7) && ($1 <= 32)) {
return $cidr;
}
}
foreach my $key (sort keys %$data) {
- die "invalid key: $key" if !$allowed{$key};
delete $required{$key};
next if $skipped{$key};
+ die "invalid key: $key" if !$allowed{$key};
my $typeformat = $format->{$key}->{format};
my $value = $data->{$key};
+ next if !defined($value);
$text .= $comma;
$comma = ',';
if ($typeformat && $typeformat eq 'disk-size') {