From: Ian Beckwith <ianb@erislabs.net>
Date: Sun, 26 Sep 2010 05:18:28 +0000 (+0100)
Subject: fix flac tag extraction
X-Git-Tag: debian/1.0-1~168
X-Git-Url: http://erislabs.net/gitweb/?p=id3fs.git;a=commitdiff_plain;h=5239895a8970d8f90e1b68bf245331ecf67b37da

fix flac tag extraction
---

diff --git a/lib/ID3FS/AudioFile/Flac.pm b/lib/ID3FS/AudioFile/Flac.pm
index c2e821f..74953df 100644
--- a/lib/ID3FS/AudioFile/Flac.pm
+++ b/lib/ID3FS/AudioFile/Flac.pm
@@ -62,11 +62,13 @@ sub tags
     my $tags={};
     for my $key (keys %{$self->{tags}})
     {
+	print "CONSIDERING: $key\n";
 	if($key =~ /genre/i &&
 	   defined($self->{tags}->{$key})  &&
 	   length($self->{tags}->{$key})   &&
 	   $self->{tags}->{$key} =~ /\S+/)
 	{
+	    print "KEY: $key, val: ", $self->{tags}->{$key}, "\n";
 	    push(@tags, $self->{tags}->{$key});
 	}
     }
@@ -80,14 +82,14 @@ sub tags
 	    my $tagname=$1;
 	    my $tagval=$2;
 	    $tagval=~s/\//-/g;
-	    $self->{tags}->{$tagname}=$tagval;
+	    $tags->{$tagname}=$tagval;
 	}
 	else
 	{
-	    $self->{tags}->{$tag}=undef;
+	    $tags->{$tag}=undef;
 	}
     }
-    return $self->{tags};
+    return $tags;
 }
 
 1;