Skip to content
Permalink
Browse files

write to all tags when multiple id3v2 tags are present

  • Loading branch information
squentin committed Nov 24, 2011
1 parent 9b9b363 commit bf2e8247a9961caa16fc9e86393df122a6fd3bfd
Showing with 6 additions and 3 deletions.
  1. +6 −3 gmusicbrowser_tags.pm
@@ -142,9 +142,12 @@ sub Write

my @taglist;
if ($maintag eq 'ID3v2' || $tag->{ID3v2})
{ my $id3v2 = $tag->{ID3v2} || $tag->new_ID3v2;
my ($ver)= $id3v2->{version}=~m/^(\d+)/;
push @taglist, ["id3v2.$ver",'id3v2'], $id3v2;
{ my @id3tags= ($tag->{ID3v2} || $tag->new_ID3v2);
push @id3tags, @{$tag->{ID3v2s}} if $tag->{ID3v2s};
for my $id3tag (@id3tags)
{ my ($ver)= $id3tag->{version}=~m/^(\d+)/;
push @taglist, ["id3v2.$ver",'id3v2'], $id3tag;
}
}
if ($maintag eq 'vorbis' || $maintag eq 'ilst')
{ push @taglist, $maintag,$tag;

0 comments on commit bf2e824

Please sign in to comment.
You can’t perform that action at this time.