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 ($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]";
}