support aliases in property strings

[pve-common.git] / src / PVE / PodParser.pm

diff --git a/src/PVE/PodParser.pm b/src/PVE/PodParser.pm
index eb443bd150713b33afddc40a14c96882a8a2d629..f61317bca69666990f8a2248edb7d75d8df0d3e3 100644 (file)
--- a/src/PVE/PodParser.pm
+++ b/src/PVE/PodParser.pm
@@ -62,6 +62,10 @@ sub generate_typetext {
        my ($key) = @_;
        $typetext .= $pre;
        my $entry = $schema->{$key};
+       if (my $alias = $entry->{alias}) {
+           $key = $alias;
+           $entry = $schema->{$key};
+       }
        if (my $desc = $entry->{format_description}) {
            $typetext .= $entry->{default_key} ? "[$key=]" : "$key=";
            $typetext .= "<$desc>";