From 5098965aac069c0b99d74a47e45ca7d8bb536a0f Mon Sep 17 00:00:00 2001
From: charlie <chuckiels2011@gmail.com>
Date: Tue, 29 Mar 2016 18:40:56 -0400
Subject: [PATCH] trying to get more info from test failures

---
 lib/DDG/Goodie/ChordDiagrams.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/DDG/Goodie/ChordDiagrams.pm b/lib/DDG/Goodie/ChordDiagrams.pm
index 45082616e..5d45f1d18 100644
--- a/lib/DDG/Goodie/ChordDiagrams.pm
+++ b/lib/DDG/Goodie/ChordDiagrams.pm
@@ -194,7 +194,8 @@ sub get_chord {
     my $chords = shift;
     foreach(@$chords) {
         if (grep(/^$chord$/, @{%$_{'root'}})) {
-            foreach(@{%$_{'types'}}) {
+            my @types = @{%$_{'types'}};
+            foreach(@types) {
                 if(%$_{'name'} eq $mod_name) {
                     return(\@{%$_{'variations'}});
                 }