"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "lib/Image/ExifTool/APE.pm" between
Image-ExifTool-12.05.tar.gz and Image-ExifTool-12.06.tar.gz

About: ExifTool is a platform-independent Perl library plus a command-line application for reading, writing and editing meta information in a wide variety of files.

APE.pm  (Image-ExifTool-12.05):APE.pm  (Image-ExifTool-12.06)
skipping to change at line 18 skipping to change at line 18
# References: 1) http://www.monkeysaudio.com/ # References: 1) http://www.monkeysaudio.com/
# 2) http://www.personal.uni-jena.de/~pfk/mpp/sv8/apetag.html # 2) http://www.personal.uni-jena.de/~pfk/mpp/sv8/apetag.html
#------------------------------------------------------------------------------ #------------------------------------------------------------------------------
package Image::ExifTool::APE; package Image::ExifTool::APE;
use strict; use strict;
use vars qw($VERSION); use vars qw($VERSION);
use Image::ExifTool qw(:DataAccess :Utils); use Image::ExifTool qw(:DataAccess :Utils);
$VERSION = '1.05'; $VERSION = '1.06';
# APE metadata blocks # APE metadata blocks
%Image::ExifTool::APE::Main = ( %Image::ExifTool::APE::Main = (
GROUPS => { 2 => 'Audio' }, GROUPS => { 2 => 'Audio' },
NOTES => q{ NOTES => q{
Tags found in Monkey's Audio (APE) information. Only a few common tags are Tags found in Monkey's Audio (APE) information. Only a few common tags are
listed below, but ExifTool will extract any tag found. ExifTool support s listed below, but ExifTool will extract any tag found. ExifTool support s
APEv1 and APEv2 tags, as well as ID3 information in APE files, and will also APEv1 and APEv2 tags, as well as ID3 information in APE files, and will also
read APE metadata from MP3 and MPC files. read APE metadata from MP3 and MPC files.
}, },
skipping to change at line 169 skipping to change at line 169
} }
} }
$et->ProcessDirectory( { DataPt => \$buff }, $table) if $table; $et->ProcessDirectory( { DataPt => \$buff }, $table) if $table;
} }
} }
# look for APE trailer unless we already found an APE header # look for APE trailer unless we already found an APE header
unless ($header) { unless ($header) {
# look for the APE trailer footer... # look for the APE trailer footer...
my $footPos = -32; my $footPos = -32;
# (...but before the ID3v1 trailer if it exists) # (...but before the ID3v1 trailer if it exists)
$footPos -= 128 if $$et{DoneID3} == 2; $footPos -= $$et{DoneID3} if $$et{DoneID3} > 1;
$raf->Seek($footPos, 2) or return 1; $raf->Seek($footPos, 2) or return 1;
$raf->Read($buff, 32) == 32 or return 1; $raf->Read($buff, 32) == 32 or return 1;
$buff =~ /^APETAGEX/ or return 1; $buff =~ /^APETAGEX/ or return 1;
SetByteOrder('II'); SetByteOrder('II');
} }
# #
# Read the APE data (we have just read the APE header or footer into $buff) # Read the APE data (we have just read the APE header or footer into $buff)
# #
my ($version, $size, $count, $flags) = unpack('x8V4', $buff); my ($version, $size, $count, $flags) = unpack('x8V4', $buff);
$version /= 1000; $version /= 1000;
 End of changes. 2 change blocks. 
2 lines changed or deleted 2 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)