X-Git-Url: https://git.proxmox.com/?p=pve-common.git;a=blobdiff_plain;f=src%2FPVE%2FJSONSchema.pm;h=f90d98c590f279a6461493562f2cee9020be71b7;hp=f6ee161957dfc096b438d378d45bb4617cbd3188;hb=2289890bade3f346a540631245d5c52fa1e08392;hpb=d8c2b9477c32795023cd58b83111473cf898e92f diff --git a/src/PVE/JSONSchema.pm b/src/PVE/JSONSchema.pm index f6ee161..f90d98c 100644 --- a/src/PVE/JSONSchema.pm +++ b/src/PVE/JSONSchema.pm @@ -1446,12 +1446,12 @@ my $find_schema_default_key = sub { if defined($phash->{alias}); die "default key '$key' with keyAlias attribute is not allowed\n" if $phash->{keyAlias}; - die "found keyAlias without 'alias definition for '$key'\n" - if $phash->{keyAlias} && !$phash->{alias}; - $default_key = $key; } my $key_alias = $phash->{keyAlias}; + die "found keyAlias without 'alias definition for '$key'\n" + if $key_alias && !$phash->{alias}; + if ($phash->{alias} && $key_alias) { die "inconsistent keyAlias '$key_alias' definition" if defined($keyAliasProps->{$key_alias}) && @@ -1593,7 +1593,7 @@ sub print_property_string { } }; - my $done = {}; + my $done = { map { $_ => 1 } @$skip }; my $cond_add_key = sub { my ($key) = @_;