"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "lib/Image/ExifTool/MakerNotes.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.

MakerNotes.pm  (Image-ExifTool-12.57)	:	MakerNotes.pm  (Image-ExifTool-12.58)
skipping to change at line 24		skipping to change at line 24
use Image::ExifTool::Exif;		use Image::ExifTool::Exif;
sub ProcessUnknown($$$);		sub ProcessUnknown($$$);
sub ProcessUnknownOrPreview($$$);		sub ProcessUnknownOrPreview($$$);
sub ProcessCanon($$$);		sub ProcessCanon($$$);
sub ProcessGE2($$$);		sub ProcessGE2($$$);
sub ProcessKodakPatch($$$);		sub ProcessKodakPatch($$$);
sub WriteUnknownOrPreview($$$);		sub WriteUnknownOrPreview($$$);
sub FixLeicaBase($$;$);		sub FixLeicaBase($$;$);
$VERSION = '2.12';		$VERSION = '2.13';
my $debug; # set to 1 to enable debugging code		my $debug; # set to 1 to enable debugging code
# conditional list of maker notes		# conditional list of maker notes
# Notes:		# Notes:
# - This is NOT a normal tag table!		# - This is NOT a normal tag table!
# - All byte orders are now specified because we can now		# - All byte orders are now specified because we can now
# write maker notes into a file with different byte ordering!		# write maker notes into a file with different byte ordering!
# - Put these in alphabetical order to make TagNames documentation nicer.		# - Put these in alphabetical order to make TagNames documentation nicer.
@Image::ExifTool::MakerNotes::Main = (		@Image::ExifTool::MakerNotes::Main = (
skipping to change at line 99		skipping to change at line 99
FixBase => 1, # necessary for AVI and MOV videos		FixBase => 1, # necessary for AVI and MOV videos
},		},
},		},
{		{
Name => 'MakerNoteDJIInfo',		Name => 'MakerNoteDJIInfo',
Condition => '$$valPt =~ /^\[ae_dbg_info:/',		Condition => '$$valPt =~ /^\[ae_dbg_info:/',
SubDirectory => { TagTable => 'Image::ExifTool::DJI::Info' },		SubDirectory => { TagTable => 'Image::ExifTool::DJI::Info' },
},		},
{		{
Name => 'MakerNoteDJI',		Name => 'MakerNoteDJI',
Condition => '$$self{Make} eq "DJI" and $$valPt !~ /^...\@AMBA/s',		Condition => '$$self{Make} eq "DJI" and $$valPt !~ /^(...\@AMBA|DJI)/s',
SubDirectory => {		SubDirectory => {
TagTable => 'Image::ExifTool::DJI::Main',		TagTable => 'Image::ExifTool::DJI::Main',
Start => '$valuePtr',		Start => '$valuePtr',
ByteOrder => 'Unknown',		ByteOrder => 'Unknown',
},		},
},		},
{		{
Name => 'MakerNoteFLIR',		Name => 'MakerNoteFLIR',
# (starts with IFD, Make is 'FLIR Systems AB' or 'FLIR Systems')		# (starts with IFD, Make is 'FLIR Systems AB' or 'FLIR Systems')
Condition => '$$self{Make} =~ /^FLIR Systems/',		Condition => '$$self{Make} =~ /^FLIR Systems/',
End of changes. 2 change blocks.
2 lines changed or deleted		2 lines changed or added

---