pull in 0.0.2

This commit is contained in:
Zane C. B-H 2021-07-10 20:40:55 -05:00
parent c4a3e7e1ce
commit cb6357f859
2 changed files with 17 additions and 3 deletions

View File

@ -1,5 +1,9 @@
Revision history for MP3-Tag-Utils Revision history for MP3-Tag-Utils
0.0.2 2010-08-23/17:40
-Correct handling of 2.4 tracks.
-Replace '/' in tags with '\' when renaming.
0.0.1 2010-08-19/18:00 0.0.1 2010-08-19/18:00
-Add a missing && in "bin/mp3tag". -Add a missing && in "bin/mp3tag".

View File

@ -11,11 +11,11 @@ MP3::Tag::Utils - Assorted utilities for manipulating MP3 files via MP3::Tag.
=head1 VERSION =head1 VERSION
Version 0.0.1 Version 0.0.2
=cut =cut
our $VERSION = '0.0.1'; our $VERSION = '0.0.2';
=head1 SYNOPSIS =head1 SYNOPSIS
@ -175,7 +175,8 @@ sub change{
=head2 rename =head2 rename
This renames files. This renames files. s/\//\\/g is used on all the tags to make sure
there are no directory issues.
One argument is taken and it is a hash ref. One argument is taken and it is a hash ref.
@ -300,6 +301,13 @@ sub rename{
$int2++; $int2++;
} }
$track=~s/\/.*//;
$title=~s/\//\\/g;
$album=~s/\//\\/g;
$artist=~s/\//\\/g;
$genre=~s/\//\\/g;
$year=~s/\//\\/g;
my %data=( my %data=(
title=>$title, title=>$title,
track=>$track, track=>$track,
@ -462,6 +470,8 @@ sub show{
$int2++; $int2++;
} }
$track=~s/\/.*//;
my %data=( my %data=(
file=>$args{files}[$int], file=>$args{files}[$int],
title=>$title, title=>$title,