"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "lib/Image/ExifTool/AIFF.pm" between
Image-ExifTool-12.57.tar.gz and Image-ExifTool-12.58.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.

AIFF.pm  (Image-ExifTool-12.57)	:	AIFF.pm  (Image-ExifTool-12.58)
skipping to change at line 21		skipping to change at line 21
# 3) http://www.mactech.com/articles/mactech/Vol.06/06.01/SANENorm alized/		# 3) http://www.mactech.com/articles/mactech/Vol.06/06.01/SANENorm alized/
#------------------------------------------------------------------------------		#------------------------------------------------------------------------------
package Image::ExifTool::AIFF;		package Image::ExifTool::AIFF;
use strict;		use strict;
use vars qw($VERSION);		use vars qw($VERSION);
use Image::ExifTool qw(:DataAccess :Utils);		use Image::ExifTool qw(:DataAccess :Utils);
use Image::ExifTool::ID3;		use Image::ExifTool::ID3;
$VERSION = '1.11';		$VERSION = '1.12';
# information for time/date-based tags (time zero is Jan 1, 1904)		# information for time/date-based tags (time zero is Jan 1, 1904)
my %timeInfo = (		my %timeInfo = (
Groups => { 2 => 'Time' },		Groups => { 2 => 'Time' },
ValueConv => 'ConvertUnixTime($val - ((66 * 365 + 17) * 24 * 3600))',		ValueConv => 'ConvertUnixTime($val - ((66 * 365 + 17) * 24 * 3600))',
PrintConv => '$self->ConvertDateTime($val)',		PrintConv => '$self->ConvertDateTime($val)',
);		);
# AIFF info		# AIFF info
%Image::ExifTool::AIFF::Main = (		%Image::ExifTool::AIFF::Main = (
skipping to change at line 205		skipping to change at line 205
# http://www.djvu.org/		# http://www.djvu.org/
# http://djvu.sourceforge.net/specs/djvu3changes.txt		# http://djvu.sourceforge.net/specs/djvu3changes.txt
my $buf2;		my $buf2;
return 0 unless $raf->Read($buf2, 4) == 4 and $buf2 =~ /^(DJVU|DJVM)/;		return 0 unless $raf->Read($buf2, 4) == 4 and $buf2 =~ /^(DJVU|DJVM)/;
$pos += 4;		$pos += 4;
$buff = substr($buff, 4) . $buf2;		$buff = substr($buff, 4) . $buf2;
$et->SetFileType('DJVU');		$et->SetFileType('DJVU');
return 1 if $fast3;		return 1 if $fast3;
$tagTablePtr = GetTagTable('Image::ExifTool::DjVu::Main');		$tagTablePtr = GetTagTable('Image::ExifTool::DjVu::Main');
# modify FileType to indicate a multi-page document		# modify FileType to indicate a multi-page document
$$et{VALUE}{FileType} .= " (multi-page)" if $buf2 eq 'DJVM';		$$et{VALUE}{FileType} .= " (multi-page)" if $buf2 eq 'DJVM' and $$et{VAL UE}{FileType};
$type = 'DjVu';		$type = 'DjVu';
} else {		} else {
return 0 unless $buff =~ /^FORM....(AIF(F|C))/s;		return 0 unless $buff =~ /^FORM....(AIF(F|C))/s;
$et->SetFileType($1);		$et->SetFileType($1);
return 1 if $fast3;		return 1 if $fast3;
$tagTablePtr = GetTagTable('Image::ExifTool::AIFF::Main');		$tagTablePtr = GetTagTable('Image::ExifTool::AIFF::Main');
$type = 'AIFF';		$type = 'AIFF';
}		}
SetByteOrder('MM');		SetByteOrder('MM');
my $verbose = $et->Options('Verbose');		my $verbose = $et->Options('Verbose');
End of changes. 2 change blocks.
2 lines changed or deleted		2 lines changed or added

---