trying to get more info from test failures

master
charlie 2016-03-29 18:40:56 -04:00
parent 99711de9a9
commit 5098965aac
1 changed files with 2 additions and 1 deletions

View File

@ -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'}});
} }