From 8f0e4cb61d5769c5b544e372f5b7005271f2108c Mon Sep 17 00:00:00 2001
From: Ian Beckwith <ianb@erislabs.net>
Date: Mon, 20 Sep 2010 01:03:24 +0100
Subject: [PATCH] Mp3: actually parse genre tag

---
 lib/ID3FS/File/Mp3.pm | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/lib/ID3FS/File/Mp3.pm b/lib/ID3FS/File/Mp3.pm
index 8f2dd11..f856a5d 100644
--- a/lib/ID3FS/File/Mp3.pm
+++ b/lib/ID3FS/File/Mp3.pm
@@ -63,6 +63,21 @@ sub v1genre
 sub tags
 {
     my $self=shift;
+    return({}) unless(exists($self->{mp3}->{ID3v2}) && defined($self->{mp3}->{ID3v2}));
+    my $genre=$self->{mp3}->{ID3v2}->genre();
+    return({}) unless(defined($genre) && length($genre));
+    my @tags=split(/\s*,\s*/, $genre);
+    for my $tag (@tags)
+    {
+	if($tag=~/(.*)\/(.*)/)
+	{
+	    $self->{tags}->{$1}=$2;
+	}
+	else
+	{
+	    $self->{tags}->{$tag}=undef;
+	}
+    }
     return $self->{tags};
 }
 
-- 
2.11.0