pull in 0.0.2
This commit is contained in:
parent
c4a3e7e1ce
commit
cb6357f859
4
Changes
4
Changes
|
@ -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".
|
||||||
|
|
||||||
|
|
|
@ -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,
|
||||||
|
|
Loading…
Reference in New Issue