~berthold-daum/zora/trunk

« back to all changes in this revision

Viewing changes to com.bdaum.zoom.batch.unix/exiftool/lib/Image/ExifTool/SonyIDC.pm

  • Committer: bdaum
  • Date: 2015-12-26 10:21:51 UTC
  • Revision ID: berthold.daum@bdaum.de-20151226102151-44f1j5113167thb9
VersionĀ 2.4.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
11
11
use strict;
12
12
use vars qw($VERSION);
13
13
use Image::ExifTool qw(:DataAccess :Utils);
 
14
use Image::ExifTool::Exif;
14
15
 
15
 
$VERSION = '1.04';
 
16
$VERSION = '1.05';
16
17
 
17
18
# Sony IDC tags (ref PH)
18
19
%Image::ExifTool::SonyIDC::Main = (
273
274
            next;
274
275
        }
275
276
        # run through IDC preview images in the same order they were extracted
276
 
        my $off = $et->GetValue($key) or last;
277
 
        my $len = $et->GetValue("IDCPreviewLength$xtra") or last;
 
277
        my $off = $et->GetValue($key, 'ValueConv') or last;
 
278
        my $len = $et->GetValue("IDCPreviewLength$xtra", 'ValueConv') or last;
278
279
        # get stack version from number in group 1 name
279
280
        my $grp1 = $et->GetGroup($key, 1);
280
281
        if ($grp1 =~ /(\d+)$/) {