my $pd = $d->{$p};
if ($p =~ m/^([a-z]+)(\d+)$/) {
my ($name, $idx) = ($1, $2);
- if ($idx == 0) {
+ if ($idx == 0 && defined($d->{"${name}1"})) {
$p = "${name}[n]";
} elsif (defined($d->{"${name}0"})) {
next; # only handle once for -xx0, but only if -xx0 exists
if ($fileparams && $type eq 'string') {
foreach my $elem (@$fileparams) {
if ($name eq $elem) {
- $type = 'filepath';
+ $type = '<filepath>';
last;
}
}
$res .= "`$type` " if $type;
if (defined(my $dv = $phash->{default})) {
- $res .= "(default=`$dv`)";
+ $res .= "('default =' `$dv`)";
}
if ($style eq 'config-sub') {
if ($k =~ m/^([a-z]+)(\d+)$/) {
my ($name, $idx) = ($1, $2);
next if $idx_param->{$name};
- if ($idx == 0) {
+ if ($idx == 0 && defined($prop->{"${name}1"})) {
$idx_param->{$name} = 1;
$base = "${name}[n]";
}
if ($k =~ m/^([a-z]+)(\d+)$/) {
my ($name, $idx) = ($1, $2);
next if $idx_param->{$name};
- if ($idx == 0) {
+ if ($idx == 0 && defined($prop->{"${name}1"})) {
$idx_param->{$name} = 1;
$base = "${name}[n]";
}