"Fossies" - the Fresh Open Source Software Archive  

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

Panasonic.pm  (Image-ExifTool-12.05):Panasonic.pm  (Image-ExifTool-12.06)
skipping to change at line 40 skipping to change at line 40
# JD) Jens Duttke private communication (TZ3,FZ30,FZ50) # JD) Jens Duttke private communication (TZ3,FZ30,FZ50)
#------------------------------------------------------------------------------ #------------------------------------------------------------------------------
package Image::ExifTool::Panasonic; package Image::ExifTool::Panasonic;
use strict; use strict;
use vars qw($VERSION %leicaLensTypes); use vars qw($VERSION %leicaLensTypes);
use Image::ExifTool qw(:DataAccess :Utils); use Image::ExifTool qw(:DataAccess :Utils);
use Image::ExifTool::Exif; use Image::ExifTool::Exif;
$VERSION = '2.12'; $VERSION = '2.13';
sub ProcessLeicaLEIC($$$); sub ProcessLeicaLEIC($$$);
sub WhiteBalanceConv($;$$); sub WhiteBalanceConv($;$$);
# Leica lens types (ref 10) # Leica lens types (ref 10)
%leicaLensTypes = ( %leicaLensTypes = (
OTHER => sub { OTHER => sub {
my ($val, $inv, $conv) = @_; my ($val, $inv, $conv) = @_;
return undef if $inv or not $val =~ s/ .*//; return undef if $inv or not $val =~ s/ .*//;
return $$conv{$val}; return $$conv{$val};
skipping to change at line 1349 skipping to change at line 1349
PrintHex => 1, PrintHex => 1,
PrintConv => { PrintConv => {
0x01 => 'Off', 0x01 => 'Off',
0x04 => 'Post Focus', 0x04 => 'Post Focus',
0x18 => '4K Burst', 0x18 => '4K Burst',
0x28 => '4K Burst (Start/Stop)', 0x28 => '4K Burst (Start/Stop)',
0x48 => '4K Pre-burst', 0x48 => '4K Pre-burst',
0x108 => 'Loop Recording', 0x108 => 'Loop Recording',
0x810 => '6K Burst', 0x810 => '6K Burst',
0x820 => '6K Burst (Start/Stop)', 0x820 => '6K Burst (Start/Stop)',
0x408 => 'Focus Stacking', #forum11563
0x1001 => 'High Resolution Mode', 0x1001 => 'High Resolution Mode',
}, },
}, },
0xbc => { #forum9282 0xbc => { #forum9282
Name => 'DiffractionCorrection', Name => 'DiffractionCorrection',
Writable => 'int16u', Writable => 'int16u',
PrintConv => { 0 => 'Off', 1 => 'Auto' }, PrintConv => { 0 => 'Off', 1 => 'Auto' },
}, },
0xbd => { #forum11194 0xbd => { #forum11194
Name => 'FocusBracket', Name => 'FocusBracket',
 End of changes. 2 change blocks. 
1 lines changed or deleted 2 lines changed or added

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