fixed delete_all

[id3fs.git] / lib / ID3FS / AudioFile / Mp3.pm

diff --git a/lib/ID3FS/AudioFile/Mp3.pm b/lib/ID3FS/AudioFile/Mp3.pm
index d8f1355..d51e0b0 100644 (file)
--- a/lib/ID3FS/AudioFile/Mp3.pm
+++ b/lib/ID3FS/AudioFile/Mp3.pm
@@ -184,7 +184,7 @@ sub delete
 {
     my($self, $thing)=@_;
 
-    if(exists($self->{mp3}->{ID3v1}))
+    if(exists($self->{mp3}->{ID3v1}) && $thing ne "genre")
     {
        my $action=$thing;
        $action="genre" if($action eq "v1genre");
@@ -200,6 +200,7 @@ sub delete
 
     if(exists($self->{mp3}->{ID3v2}))
     {
+       print "2: remove: $thing\n";
        if($thing eq "artist")
        {
            $self->{mp3}->{ID3v2}->remove_frame("TPE1");