sub write
{
my $self=shift;
- $self->{mp3tag}->update_tags();
+ if(exists($self->{mp3tag}->{ID3v1}))
+ {
+ $self->{mp3tag}->{ID3v1}->write_tag;
+ }
+ if(exists($self->{mp3tag}->{ID3v2}))
+ {
+ $self->{mp3tag}->{ID3v2}->write_tag;
+ }
}
sub delete_artist { shift->delete("artist"); }