generate_pod_manpage: fix for 'simple' commands
authorDietmar Maurer <dietmar@proxmox.com>
Fri, 4 Sep 2015 07:39:50 +0000 (09:39 +0200)
committerDietmar Maurer <dietmar@proxmox.com>
Fri, 4 Sep 2015 07:39:50 +0000 (09:39 +0200)
src/PVE/CLIHandler.pm

index 8bab06b..3ce9eb8 100644 (file)
@@ -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;