TT#69200 Fix mapeq() to match correctly according to caseinsensitive argument

Change-Id: I747614927df0a1b0b947c95049b9007e11570bd6
changes/18/35018/1
Guillem Jover 6 years ago
parent 85d59d562a
commit bcbe99c74d

@ -342,13 +342,13 @@ sub mapeq {
if ($case_insensitive) {
for my $key (keys %$map_prt2) {
last unless exists $cmp{$key};
last unless $map_prt1->{$key} eq $map_prt2->{$key};
last unless lc($map_prt1->{$key}) eq lc($map_prt2->{$key});
delete $cmp{$key};
}
} else {
for my $key (keys %$map_prt2) {
last unless exists $cmp{$key};
last unless lc($map_prt1->{$key}) eq lc($map_prt2->{$key});
last unless $map_prt1->{$key} eq $map_prt2->{$key};
delete $cmp{$key};
}
}

Loading…
Cancel
Save