warn("$self->{path}: no $func defined in ID3 tags\n") if($verbose);
return undef;
}
+ $thing=~s/\//-/g; # drop slashes
return $thing;
}
sub v1genre
{
my($self)=@_;
+ my $genre=undef;
if(defined($self->{v1}))
{
- return $self->{v1}->genre();
+ $genre=$self->{v1}->genre();
+ $genre =~ s/\//-/g if(defined($genre));
}
+ return $genre;
}
sub tags