generate_pod_manpage: fix for 'simple' commands

This commit is contained in:
Dietmar Maurer 2015-09-04 09:39:50 +02:00
parent 4347914633
commit bb958629be

View 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;