generate_pod_manpage: fix for 'simple' commands

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

diff --git a/src/PVE/CLIHandler.pm b/src/PVE/CLIHandler.pm
index 8bab06b391f7aed139ded7e9826bea12919d69a7..3ce9eb8baf3ed5fa897d86f49d85852fcafd01a4 100644 (file)
--- a/src/PVE/CLIHandler.pm
+++ b/src/PVE/CLIHandler.pm
@@ -333,7 +333,7 @@ sub generate_pod_manpage {
     no strict 'refs';
     my $def = ${"${class}::cmddef"};
 
-    if (ref($def eq 'ARRAY')) {
+    if (ref($def) eq 'ARRAY') {
        print_simple_pod_manpage($podfn, @$def);
     } else {
        $cmddef = $def;