duckduckgo
/
zeroclickinfo-goodies
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

...

master
charlie 2016-03-29 19:11:24 -04:00
parent b55e022b61
commit 4caa54d8e0
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lib/DDG/Goodie/ChordDiagrams.pm
View File

@ -193,12 +193,12 @@ sub get_chord {
my $mod_name = shift; # maj, 5, min, etc.
my $chords = shift;
foreach my $c(@$chords) {
my @root = @{%$c{'root'}};
my @root = @{%{$c}{'root'}};
if (grep(/^$chord$/, @root)) {
my @types = @{%$c{'types'}};
my @types = @{%{$c}{'types'}};
foreach my $t(@types) {
if(%$t{'name'} eq $mod_name) {
return(\@{%$t{'variations'}});
return(\@{%{$t}{'variations'}});
}
}
}