trying to get more info from test failures
parent
99711de9a9
commit
5098965aac
|
@ -194,7 +194,8 @@ sub get_chord {
|
||||||
my $chords = shift;
|
my $chords = shift;
|
||||||
foreach(@$chords) {
|
foreach(@$chords) {
|
||||||
if (grep(/^$chord$/, @{%$_{'root'}})) {
|
if (grep(/^$chord$/, @{%$_{'root'}})) {
|
||||||
foreach(@{%$_{'types'}}) {
|
my @types = @{%$_{'types'}};
|
||||||
|
foreach(@types) {
|
||||||
if(%$_{'name'} eq $mod_name) {
|
if(%$_{'name'} eq $mod_name) {
|
||||||
return(\@{%$_{'variations'}});
|
return(\@{%$_{'variations'}});
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue