fix flac tag extraction

diff --git a/lib/ID3FS/AudioFile/Flac.pm b/lib/ID3FS/AudioFile/Flac.pm
index c2e821f..74953df 100644 (file)
--- 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;