@@ -1,7 +1,10 @@
Revision history for Perl modules under Audio::M4P
+0.57 Thu Oct 22 2014
+ - added ownr atom to list of Apple iTMS user ID atoms
+
0.55 Fri 21 Feb 2014
- - fix to get multiple album covers froma single covr atom if needed
+ - fix to get multiple album covers from a single covr atom if needed
- pod fixes
0.54 Wed 19 Feb 2014
@@ -28,3 +28,4 @@ t/booka.mp4
t/emotre.m4a
Makefile.PL
META.yml Module meta-data (added by MakeMaker)
+META.json Module JSON meta-data (added by MakeMaker)
@@ -0,0 +1,47 @@
+{
+ "abstract" : "Perl M4P/MP4/M4a video and audio media file tools",
+ "author" : [
+ "William Hererra (whererra@skylightview.com)"
+ ],
+ "dynamic_config" : 1,
+ "generated_by" : "ExtUtils::MakeMaker version 6.98, CPAN::Meta::Converter version 2.142060",
+ "license" : [
+ "perl_5"
+ ],
+ "meta-spec" : {
+ "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec",
+ "version" : "2"
+ },
+ "name" : "Audio-M4P",
+ "no_index" : {
+ "directory" : [
+ "t",
+ "inc"
+ ]
+ },
+ "prereqs" : {
+ "build" : {
+ "requires" : {
+ "ExtUtils::MakeMaker" : "0"
+ }
+ },
+ "configure" : {
+ "requires" : {
+ "ExtUtils::MakeMaker" : "0"
+ }
+ },
+ "runtime" : {
+ "requires" : {
+ "Crypt::Rijndael" : "0",
+ "Digest::MD5" : "0",
+ "Scalar::Util" : "0",
+ "Test::More" : "0",
+ "Tree::Simple" : "0",
+ "Tree::Simple::View::HTML" : "0",
+ "Tree::Simple::Visitor" : "0"
+ }
+ }
+ },
+ "release_status" : "stable",
+ "version" : "0.57"
+}
@@ -1,28 +1,28 @@
---- #YAML:1.0
-name: Audio-M4P
-version: 0.55
-abstract: Perl M4P/MP4/M4a video and audio media file tools
+---
+abstract: Perl M4P/MP4/M4a video and audio media file tools
author:
- - William Hererra (whererra@skylightview.com)
-license: perl
-distribution_type: module
-configure_requires:
- ExtUtils::MakeMaker: 0
+ - William Hererra (whererra@skylightview.com)
build_requires:
- ExtUtils::MakeMaker: 0
-requires:
- Crypt::Rijndael: 0
- Digest::MD5: 0
- Scalar::Util: 0
- Test::More: 0
- Tree::Simple: 0
- Tree::Simple::View::HTML: 0
- Tree::Simple::Visitor: 0
-no_index:
- directory:
- - t
- - inc
-generated_by: ExtUtils::MakeMaker version 6.56
+ ExtUtils::MakeMaker: 0
+configure_requires:
+ ExtUtils::MakeMaker: 0
+dynamic_config: 1
+generated_by: 'ExtUtils::MakeMaker version 6.98, CPAN::Meta::Converter version 2.142060'
+license: perl
meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.4.html
- version: 1.4
+ url: http://module-build.sourceforge.net/META-spec-v1.4.html
+ version: 1.4
+name: Audio-M4P
+no_index:
+ directory:
+ - t
+ - inc
+requires:
+ Crypt::Rijndael: 0
+ Digest::MD5: 0
+ Scalar::Util: 0
+ Test::More: 0
+ Tree::Simple: 0
+ Tree::Simple::View::HTML: 0
+ Tree::Simple::Visitor: 0
+version: 0.57
@@ -5,7 +5,7 @@ use strict;
use warnings;
use Carp;
use Scalar::Util 'weaken';
-our $VERSION = '0.55';
+our $VERSION = '0.57';
use Audio::M4P::Atom;
@@ -115,7 +115,7 @@ our %alternate_tag_types = (
);
our @m4p_not_m4a_atom_types = qw( sinf cnID apID atID plID geID akID ---- );
-our @apple_user_id_atoms = qw( pinf apID cnID atID plID geID sfID akID purd );
+our @apple_user_id_atoms = qw( pinf apID cnID atID plID geID sfID akID purd ownr );
our %iTMS_dict_meta_types = (
copyright => 'cprt',
@@ -905,14 +905,16 @@ sub GetCoverArt {
# remove all cover art, return number of covers removed
# does not remove an empty covr atom (one without cover data)
+# but otherwise will remove covr atoms as well as cover data
sub DeleteAllCoverArt {
my ($self) = @_;
my $removed = 0;
- while( my $atm = $self->FindAtom('covr') ) {
+ my @covr = $self->FindAtom('covr');
+ foreach my $atm (@covr) {
my @atoms = $atm->Contained('data') or next;
my $siz = $atm->size;
my $pos = $atm->start;
- $atm->selfDelete() or return;
+ $atm->selfDelete() or next;
$self->FixStco( $siz, $pos );
$removed += scalar @atoms;
}
@@ -2,7 +2,7 @@ use strict;
# kwalitee, schmalitee...
# buggy CPANTS wants even dumb doc placeholder modules to use strict...
-our $VERSION = '0.53';
+our $VERSION = '0.57';
=head1 NAME