exiftool_vendored 11.71.0 → 11.75.0

data/bin/lib/Image/ExifTool/WriteXMP.pl

@@ -324,9 +324,8 @@ sub SetPropertyPath($$;$$$$)
     # add required properties if this is a list
     push @propList, "rdf:$listType", 'rdf:li 10' if $listType and $listType ne '1';
     # set PropertyPath for all flattened tags of this structure if necessary
-    # (note: don't do this for variable-namespace structures (undef NAMESPACE))
     my $strTable = $$tagInfo{Struct};
-    if ($strTable and $$strTable{NAMESPACE} and not ($parentID and
+    if ($strTable and not ($parentID and
         # must test NoSubStruct flag to avoid infinite recursion
         (($$tagTablePtr{$parentID} and $$tagTablePtr{$parentID}{NoSubStruct}) or
         length $parentID > 500))) # avoid deep recursion

data/bin/lib/Image/ExifTool/Writer.pl

@@ -2850,7 +2850,7 @@ Conv: for (;;) {
                     last Conv;
                 }
             } elsif ($conv) {
-                if (ref $conv eq 'HASH') {
+                if (ref $conv eq 'HASH' and (not exists $$tagInfo{"${type}Inv"} or $convInvList)) {
                     my ($multi, $lc);
                     # insert alternate language print conversions if required
                     if ($$self{CUR_LANG} and $type eq 'PrintConv' and

data/bin/lib/Image/ExifTool/XMP.pm

@@ -49,7 +49,7 @@ use Image::ExifTool::Exif;
 use Image::ExifTool::GPS;
 require Exporter;
 
-$VERSION = '3.26';
+$VERSION = '3.28';
 @ISA = qw(Exporter);
 @EXPORT_OK = qw(EscapeXML UnescapeXML);
 
@@ -1482,8 +1482,8 @@ my %sPantryItem = (
     TABLE_DESC => 'XMP TIFF',
     NOTES => q{
         EXIF namespace for TIFF tags.  See
-        L<http://www.cipa.jp/std/documents/e/DC-010-2017_E.pdf> for the
-        specification.
+        L<https://web.archive.org/web/20180921145139if_/http://www.cipa.jp:80/std/documents/e/DC-010-2017_E.pdf>
+        for the specification.
     },
     ImageWidth    => { Writable => 'integer' },
     ImageLength   => { Writable => 'integer', Name => 'ImageHeight' },
@@ -1573,8 +1573,8 @@ my %sPantryItem = (
     PRIORITY => 0, # not as reliable as actual EXIF tags
     NOTES => q{
         EXIF namespace for EXIF tags.  See
-        L<http://www.cipa.jp/std/documents/e/DC-010-2017_E.pdf> for the
-        specification.
+        L<https://web.archive.org/web/20180921145139if_/http://www.cipa.jp:80/std/documents/e/DC-010-2017_E.pdf>
+        for the specification.
     },
     ExifVersion     => { },
     FlashpixVersion => { },
@@ -2428,14 +2428,14 @@ sub UnescapeChar($$;$)
 
 #------------------------------------------------------------------------------
 # Does a string contain valid UTF-8 characters?
-# Inputs: 0) string reference
+# Inputs: 0) string reference, 1) true to allow last character to be truncated
 # Returns: 0=regular ASCII, -1=invalid UTF-8, 1=valid UTF-8 with maximum 16-bit
 #          wide characters, 2=valid UTF-8 requiring 32-bit wide characters
 # Notes: Changes current string position
 # (see http://www.fileformat.info/info/unicode/utf8.htm for help understanding this)
-sub IsUTF8($)
+sub IsUTF8($;$)
 {
-    my $strPt = shift;
+    my ($strPt, $trunc) = @_;
     pos($$strPt) = 0; # start at beginning of string
     return 0 unless $$strPt =~ /([\x80-\xff])/g;
     my $rtnVal = 1;
@@ -2457,7 +2457,11 @@ sub IsUTF8($)
             # were required in the UTF-8 character
             $rtnVal = 2;
         }
-        return -1 unless $$strPt =~ /\G([\x80-\xbf]{$n})/g;
+        my $pos = pos $$strPt;
+        unless ($$strPt =~ /\G([\x80-\xbf]{$n})/g) {
+            return $rtnVal if $trunc and $pos + $n > length $$strPt;
+            return -1;
+        }
         # the following is ref https://www.cl.cam.ac.uk/%7Emgk25/ucs/utf8_check.c
         if ($n == 2) {
             return -1 if ($ch == 0xe0 and (ord($1) & 0xe0) == 0x80) or
@@ -2677,8 +2681,6 @@ sub AddFlattenedTags($;$$)
             $$tagInfo{Struct} = $strTable;  # replace old-style name with HASH ref
             delete $$tagInfo{SubDirectory}; # deprecated use of SubDirectory in Struct tags
         }
-        # do not add flattened tags to variable-namespace structures
-        next if exists $$strTable{NAMESPACE} and not defined $$strTable{NAMESPACE};
 
         # get prefix for flattened tag names
         my $flat = (defined $$tagInfo{FlatName} ? $$tagInfo{FlatName} : $$tagInfo{Name});
@@ -2720,6 +2722,7 @@ sub AddFlattenedTags($;$$)
                 # generate new flattened tag information based on structure field
                 my $flatName = $flat . $flatField;
                 $flatInfo = { %$fieldInfo, Name => $flatName, Flat => 0 };
+                $$flatInfo{FlatName} = $flatName if $$fieldInfo{FlatName};
                 # make a copy of the Groups hash if necessary
                 $$flatInfo{Groups} = { %{$$fieldInfo{Groups}} } if $$fieldInfo{Groups};
                 # add new flattened tag to table
@@ -3027,14 +3030,6 @@ NoLoop:
             $ti = $$tagTablePtr{$t} or next;
             next unless ref $ti eq 'HASH' and $$ti{Struct};
             $addedFlat = AddFlattenedTags($tagTablePtr, $t);
-            if ($tagInfo) {
-                # all done if we just wanted to initialize the flattened tag
-                if ($$tagInfo{Flat}) {
-                    warn "Orphan tagInfo with Flat flag set: $$tagInfo{Name}\n";
-                    delete $$tagInfo{Flat};
-                }
-                last NoLoop;
-            }
             # all done if we generated the tag we are looking for
             $tagInfo = $$tagTablePtr{$tagID} and last NoLoop if $addedFlat;
         }
@@ -3092,11 +3087,8 @@ NoLoop:
                     }
                     last unless $sti;
                 }
-                $tagInfo = {
-                    %$sti,
-                    Name => $flat . $$sti{Name},
-                    WasAdded => 1,
-                };
+                # generate new tagInfo hash based on existing top-level tag
+                $tagInfo = { %$sti, Name => $flat . $$sti{Name} };
                 # be careful not to copy elements we shouldn't...
                 delete $$tagInfo{Description}; # Description will be different
                 # can't copy group hash because group 1 will be different and
@@ -3106,7 +3098,8 @@ NoLoop:
                 last;
             }
         }
-        $tagInfo or $tagInfo = { Name => $name, WasAdded => 1, Priority => 0 };
+        # generate a default tagInfo hash if necessary
+        $tagInfo or $tagInfo = { Name => $name, IsDefault => 1, Priority => 0 };
 
         # add tag Namespace entry for tags in variable-namespace tables
         $$tagInfo{Namespace} = $xns if $xns;
@@ -3175,7 +3168,7 @@ NoLoop:
     $val = $et->Decode($val, 'UTF8');
     # convert rational and date values to a more sensible format
     my $fmt = $$tagInfo{Writable};
-    my $new = $$tagInfo{WasAdded} && $$et{OPTIONS}{XMPAutoConv};
+    my $new = $$tagInfo{IsDefault} && $$et{OPTIONS}{XMPAutoConv};
     if ($fmt or $new) {
         $rawVal = $val; # save raw value for verbose output
         if (($new or $fmt eq 'rational') and ConvertRational($val)) {

data/bin/lib/Image/ExifTool/XMP2.pl

@@ -389,7 +389,7 @@ my %sRating = (
     RatingScaleMaxValue => { FlatName => 'ScaleMaxValue' },
     RatingValueLogoLink => { FlatName => 'ValueLogoLink' },
     RatingRegion => {
-        FlatName => 'RatingRegion',
+        FlatName => 'Region',
         Struct => \%sLocationDetails,
         List => 'Bag',
     },
@@ -436,6 +436,39 @@ my %sLinkedImage = (
     HeightPixels=> { Writable => 'integer' },
     UsedVideoFrame => { Struct => \%sTimecode },
 );
+my %sBoundaryPoint = ( # new in 1.5
+    STRUCT_NAME => 'BoundaryPoint',
+    NAMESPACE   => 'Iptc4xmpExt',
+    rbX => { FlatName => 'X', Writable => 'real' },
+    rbY => { FlatName => 'Y', Writable => 'real' },
+);
+my %sRegionBoundary = ( # new in 1.5
+    STRUCT_NAME => 'RegionBoundary',
+    NAMESPACE   => 'Iptc4xmpExt',
+    rbShape => { FlatName => 'Shape', PrintConv => { rectangle => 'Rectangle', circle => 'Circle', polygon => 'Polygon' } },
+    rbUnit  => { FlatName => 'Unit',  PrintConv => { pixel => 'Pixel', relative => 'Relative' } },
+    rbX => { FlatName => 'X', Writable => 'real' },
+    rbY => { FlatName => 'Y', Writable => 'real' },
+    rbW => { FlatName => 'W', Writable => 'real' },
+    rbH => { FlatName => 'H', Writable => 'real' },
+    rbRx => { FlatName => 'Rx', Writable => 'real' },
+    rbVertices => { FlatName => 'Vertices', List => 'Seq', Struct => \%sBoundaryPoint },
+);
+my %sImageRegion = ( # new in 1.5
+    STRUCT_NAME => 'ImageRegion',
+    NAMESPACE   => undef,   # undefined to allow variable-namespace extensions
+    NOTES => q{
+        As well as the fields defined below, this structure may contain any
+        top-level XMP tags, but since they aren't pre-defined the only way to add
+        these tags is to write ImageRegion as a structure with these tags as new
+        fields.
+    },
+    RegionBoundary => { Namespace => 'Iptc4xmpExt', FlatName => 'Boundary', Struct => \%sRegionBoundary },
+    rId    => { Namespace => 'Iptc4xmpExt', FlatName => 'ID' },
+    Name   => { Namespace => 'Iptc4xmpExt', Writable => 'lang-alt' },
+    rCtype => { Namespace => 'Iptc4xmpExt', FlatName => 'Ctype', List => 'Bag', Struct => \%sEntity },
+    rRole  => { Namespace => 'Iptc4xmpExt', FlatName => 'Role',  List => 'Bag', Struct => \%sEntity },
+);
 
 # IPTC Extension namespace properties (Iptc4xmpExt) (ref 4)
 %Image::ExifTool::XMP::iptcExt = (
@@ -444,9 +477,9 @@ my %sLinkedImage = (
     NAMESPACE   => 'Iptc4xmpExt',
     TABLE_DESC => 'XMP IPTC Extension',
     NOTES => q{
-        IPTC Extension namespace tags.  The actual namespace prefix is
-        "Iptc4xmpExt", but ExifTool shortens this for the family 1 group name. (see
-        L<http://www.iptc.org/IPTC4XMP/>)
+        This table contains tags defined by the IPTC Extension schema version 1.5. 
+        The actual namespace prefix is "Iptc4xmpExt", but ExifTool shortens this for
+        the family 1 group name. (see L<http://www.iptc.org/IPTC4XMP/>)
     },
     AboutCvTerm => {
         Struct => \%sCVTermDetails,
@@ -503,12 +536,13 @@ my %sLinkedImage = (
         List => 'Bag',
         Notes => 'deprecated by version 1.2',
     },
-    DigImageGUID            => { Name => 'DigitalImageGUID' },
+    DigImageGUID            => { Groups => { 2 => 'Image' }, Name => 'DigitalImageGUID' },
     DigitalSourcefileType   => {
         Name => 'DigitalSourceFileType',
         Notes => 'now deprecated -- replaced by DigitalSourceType',
+        Groups => { 2 => 'Image' },
     },
-    DigitalSourceType       => { Name => 'DigitalSourceType' },
+    DigitalSourceType       => { Name => 'DigitalSourceType', Groups => { 2 => 'Image' } },
     EmbdEncRightsExpr => {
         Struct => {
             STRUCT_NAME => 'EEREDetails',
@@ -551,8 +585,8 @@ my %sLinkedImage = (
         Groups => { 2 => 'Location' },
         List => 'Bag',
     },
-    MaxAvailHeight          => { Writable => 'integer' },
-    MaxAvailWidth           => { Writable => 'integer' },
+    MaxAvailHeight          => { Groups => { 2 => 'Image' }, Writable => 'integer' },
+    MaxAvailWidth           => { Groups => { 2 => 'Image' }, Writable => 'integer' },
     ModelAge                => { List => 'Bag', Writable => 'integer' },
     OrganisationInImageCode => { List => 'Bag' },
     OrganisationInImageName => { List => 'Bag' },
@@ -687,6 +721,7 @@ my %sLinkedImage = (
     # new IPTC video metadata 1.2 properties
     # (ref http://www.iptc.org/std/videometadatahub/recommendation/IPTC-VideoMetadataHub-props-Rec_1.2.html)
     RecDevice => {
+        Groups => { 2 => 'Device' },
         Struct => {
             STRUCT_NAME => 'Device',
             NAMESPACE   => 'Iptc4xmpExt',
@@ -698,7 +733,9 @@ my %sLinkedImage = (
         },
     },
     PlanningRef         => { List => 'Bag', Struct => \%sEntityWithRole },
-    audioBitsPerSample  => { Writable => 'integer' },
+    audioBitsPerSample  => { Groups => { 2 => 'Audio' }, Writable => 'integer' },
+    # new IPTC Extension schema 1.5 property
+    ImageRegion => { Groups => { 2 => 'Image' }, List => 'Bag', Struct => \%sImageRegion },
 );
 
 #------------------------------------------------------------------------------

data/bin/lib/Image/ExifTool/XMPStruct.pl

@@ -233,7 +233,7 @@ Key:
                 # create new structure field if necessary
                 $fieldInfo or $fieldInfo = $$strTable{$tag} = {
                     %$tagInfo, # (also copies the necessary TagID and PropertyPath)
-                    Namespace => $$tagInfo{Table}{NAMESPACE},
+                    Namespace => $$tagInfo{Namespace} || $$tagInfo{Table}{NAMESPACE},
                     LangCode  => $langCode,
                 };
                 # delete stuff we don't need (shouldn't cause harm, but better safe than sorry)
@@ -398,7 +398,11 @@ sub DeleteStruct($$$$$)
         my $verbose = $et->Options('Verbose');
         @delPaths = sort @delPaths if $verbose > 1;
         foreach $p (@delPaths) {
-            $et->VerboseValue("- XMP-$p", $$capture{$p}[0]) if $verbose > 1;
+            if ($verbose > 1) {
+                my $p2 = $p;
+                $p2 =~ s/^(\w+)/$stdXlatNS{$1} || $1/e;
+                $et->VerboseValue("- XMP-$p2", $$capture{$p}[0]);
+            }
             delete $$capture{$p};
             $deleted = 1;
             ++$$changed;
@@ -462,7 +466,9 @@ sub AddNewTag($$$$$$)
     $$capture{$path} = [ $val, \%attrs ];
     # print verbose message
     if ($et and $et->Options('Verbose') > 1) {
-        $et->VerboseValue("+ XMP-$path", $val);
+        my $p = $path;
+        $p =~ s/^(\w+)/$stdXlatNS{$1} || $1/e;
+        $et->VerboseValue("+ XMP-$p", $val);
     }
 }
 
@@ -551,7 +557,11 @@ sub AddNewStruct($$$$$$)
         my $path = $basePath . '/' . ConformPathToNamespace($et, "rdf:type");
         unless ($$capture{$path}) {
             $$capture{$path} = [ '', { 'rdf:resource' => $$strTable{TYPE} } ];
-            $et->VerboseValue("+ XMP-$path", $$strTable{TYPE}) if $verbose > 1;
+            if ($verbose > 1) {
+                my $p = $path;
+                $p =~ s/^(\w+)/$stdXlatNS{$1} || $1/e;
+                $et->VerboseValue("+ XMP-$p", $$strTable{TYPE});
+            }
         }
     }
     return $changed;

data/bin/perl-Image-ExifTool.spec

@@ -1,6 +1,6 @@
 Summary: perl module for image data extraction
 Name: perl-Image-ExifTool
-Version: 11.71
+Version: 11.75
 Release: 1
 License: Artistic/GPL
 Group: Development/Libraries/Perl
@@ -43,24 +43,24 @@ supported by ExifTool (r = read, w = write, c = create):
   BPG   r     | FLIF  r/w   | MKA   r     | PFB   r     | TORRENT r
   BTF   r     | FLV   r     | MKS   r     | PFM   r     | TTC   r
   CHM   r     | FPF   r     | MKV   r     | PGF   r     | TTF   r
-  COS   r     | FPX   r     | MNG   r/w   | PGM   r/w   | VCF   r
-  CR2   r/w   | GIF   r/w   | MOBI  r     | PLIST r     | VRD   r/w/c
-  CR3   r/w   | GPR   r/w   | MODD  r     | PICT  r     | VSD   r
-  CRM   r/w   | GZ    r     | MOI   r     | PMP   r     | WAV   r
-  CRW   r/w   | HDP   r/w   | MOS   r/w   | PNG   r/w   | WDP   r/w
-  CS1   r/w   | HDR   r     | MOV   r/w   | PPM   r/w   | WEBP  r
-  DCM   r     | HEIC  r/w   | MP3   r     | PPT   r     | WEBM  r
-  DCP   r/w   | HEIF  r/w   | MP4   r/w   | PPTX  r     | WMA   r
-  DCR   r     | HTML  r     | MPC   r     | PS    r/w   | WMV   r
-  DFONT r     | ICC   r/w/c | MPG   r     | PSB   r/w   | WTV   r
-  DIVX  r     | ICS   r     | MPO   r/w   | PSD   r/w   | WV    r
-  DJVU  r     | IDML  r     | MQV   r/w   | PSP   r     | X3F   r/w
-  DLL   r     | IIQ   r/w   | MRW   r/w   | QTIF  r/w   | XCF   r
-  DNG   r/w   | IND   r/w   | MXF   r     | R3D   r     | XLS   r
-  DOC   r     | INSV  r     | NEF   r/w   | RA    r     | XLSX  r
-  DOCX  r     | INX   r     | NRW   r/w   | RAF   r/w   | XMP   r/w/c
-  DPX   r     | ISO   r     | NUMBERS r   | RAM   r     | ZIP   r
-  DR4   r/w/c | ITC   r     | O     r     | RAR   r     |
+  COS   r     | FPX   r     | MNG   r/w   | PGM   r/w   | TXT   r
+  CR2   r/w   | GIF   r/w   | MOBI  r     | PLIST r     | VCF   r
+  CR3   r/w   | GPR   r/w   | MODD  r     | PICT  r     | VRD   r/w/c
+  CRM   r/w   | GZ    r     | MOI   r     | PMP   r     | VSD   r
+  CRW   r/w   | HDP   r/w   | MOS   r/w   | PNG   r/w   | WAV   r
+  CS1   r/w   | HDR   r     | MOV   r/w   | PPM   r/w   | WDP   r/w
+  DCM   r     | HEIC  r/w   | MP3   r     | PPT   r     | WEBP  r
+  DCP   r/w   | HEIF  r/w   | MP4   r/w   | PPTX  r     | WEBM  r
+  DCR   r     | HTML  r     | MPC   r     | PS    r/w   | WMA   r
+  DFONT r     | ICC   r/w/c | MPG   r     | PSB   r/w   | WMV   r
+  DIVX  r     | ICS   r     | MPO   r/w   | PSD   r/w   | WTV   r
+  DJVU  r     | IDML  r     | MQV   r/w   | PSP   r     | WV    r
+  DLL   r     | IIQ   r/w   | MRW   r/w   | QTIF  r/w   | X3F   r/w
+  DNG   r/w   | IND   r/w   | MXF   r     | R3D   r     | XCF   r
+  DOC   r     | INSV  r     | NEF   r/w   | RA    r     | XLS   r
+  DOCX  r     | INX   r     | NRW   r/w   | RAF   r/w   | XLSX  r
+  DPX   r     | ISO   r     | NUMBERS r   | RAM   r     | XMP   r/w/c
+  DR4   r/w/c | ITC   r     | O     r     | RAR   r     | ZIP   r
 
   Meta Information
   ----------------------+----------------------+---------------------

data/lib/exiftool_vendored/version.rb

@@ -1,5 +1,5 @@
 # frozen_string_literal: true
 
 module ExiftoolVendored
-  VERSION = Gem::Version.new('11.71.0')
+  VERSION = Gem::Version.new('11.75.0')
 end

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: exiftool_vendored
 version: !ruby/object:Gem::Version
-  version: 11.71.0
+  version: 11.75.0
 platform: ruby
 authors:
 - Matthew McEachen
@@ -9,7 +9,7 @@ authors:
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2019-10-16 00:00:00.000000000 Z
+date: 2019-11-04 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: exiftool
@@ -192,24 +192,21 @@ files:
 - bin/arg_files/xmp2pdf.args
 - bin/config_files/age.config
 - bin/config_files/bibble.config
-- bin/config_files/blueskysea.config
 - bin/config_files/convert_regions.config
-- bin/config_files/dji.config
 - bin/config_files/example.config
 - bin/config_files/fotoware.config
 - bin/config_files/gps2utm.config
-- bin/config_files/mini0806.config
 - bin/config_files/nksc.config
 - bin/config_files/photoshop_paths.config
 - bin/config_files/picasa_faces.config
 - bin/config_files/rotate_regions.config
-- bin/config_files/thinkware.config
 - bin/config_files/tiff_version.config
 - bin/config_files/time_zone.config
 - bin/exiftool
 - bin/fmt_files/gpx.fmt
 - bin/fmt_files/gpx_wpt.fmt
 - bin/fmt_files/kml.fmt
+- bin/fmt_files/kml_track.fmt
 - bin/lib/File/RandomAccess.pm
 - bin/lib/File/RandomAccess.pod
 - bin/lib/Image/ExifTool.pm
@@ -369,6 +366,7 @@ files:
 - bin/lib/Image/ExifTool/Palm.pm
 - bin/lib/Image/ExifTool/Panasonic.pm
 - bin/lib/Image/ExifTool/PanasonicRaw.pm
+- bin/lib/Image/ExifTool/Parrot.pm
 - bin/lib/Image/ExifTool/Pentax.pm
 - bin/lib/Image/ExifTool/PhaseOne.pm
 - bin/lib/Image/ExifTool/PhotoCD.pm
@@ -402,6 +400,7 @@ files:
 - bin/lib/Image/ExifTool/TagInfoXML.pm
 - bin/lib/Image/ExifTool/TagLookup.pm
 - bin/lib/Image/ExifTool/TagNames.pod
+- bin/lib/Image/ExifTool/Text.pm
 - bin/lib/Image/ExifTool/Theora.pm
 - bin/lib/Image/ExifTool/Torrent.pm
 - bin/lib/Image/ExifTool/Unknown.pm
@@ -448,7 +447,7 @@ required_rubygems_version: !ruby/object:Gem::Requirement
       version: '0'
 requirements: []
 rubyforge_project: 
-rubygems_version: 2.6.13
+rubygems_version: 2.6.8
 signing_key: 
 specification_version: 4
 summary: Vendored version of exiftool

data/bin/config_files/blueskysea.config

@@ -1,101 +0,0 @@
-#------------------------------------------------------------------------------
-# File:         blueskysea.config
-#
-# Description:  This config file defines Composite tags to convert embedded
-#               metadata in videos from BlueSkySea traffic cameras
-#
-# Usage:        exiftool -config blueskysea.config -ee FILE
-#
-#               Example command to create .gpx log file from BlueSkySea video
-#               (requires gpx.fmt available in the full Exiftool distribution):
-#
-#               exiftool -config blueskysea.config -p gpx.fmt -ee FILE
-#
-# Requires:     ExifTool version 10.75 or later
-#
-# Revisions:    2019/08/23 - P. Harvey Created
-#------------------------------------------------------------------------------
-
-%Image::ExifTool::UserDefined = (
-    'Image::ExifTool::Composite' => {
-        GROUPS => { 2 => 'Location' },
-#
-# Note: SubDoc flag is set for all these tags so they will be generated for
-#       all embedded documents
-#
-        GPSDateTime => {
-            Description => 'GPS Date/Time',
-            Groups => { 2 => 'Time' },
-            SubDoc => 1,
-            Require => 'Text',
-            RawConv => q{
-                $val = pack('C*', map { $_ ^ 0xaa } unpack('C*', substr($val[0], 8, 14)));
-                return undef unless $val =~ /^(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})$/;
-                return "$1:$2:$3 $4:$5:$6";
-            },
-            PrintConv => '$self->ConvertDateTime($val)',
-        },
-        GPSLatitude => {
-            SubDoc => 1,
-            Require => 'Text',
-            RawConv => q{
-                $val = pack('C*', map { $_ ^ 0xaa } unpack('C*', substr($val[0], 38, 9)));
-                return undef unless $val =~ /^([NS])(\d{2})(\d+$)$/;
-                return ($2 + $3 / 600000) * ($1 eq 'S' ? -1 : 1);
-            },
-            PrintConv => 'Image::ExifTool::GPS::ToDMS($self, $val, 1, "N")',
-        },
-        GPSLongitude => {
-            SubDoc => 1,
-            Require => 'Text',
-            RawConv => q{
-                $val = pack('C*', map { $_ ^ 0xaa } unpack('C*', substr($val[0], 47, 10)));
-                return undef unless $val =~ /^([EW])(\d{3})(\d+$)$/;
-                return ($2 + $3 / 600000) * ($1 eq 'W' ? -1 : 1);
-            },
-            PrintConv => 'Image::ExifTool::GPS::ToDMS($self, $val, 1, "E")',
-        },
-        GPSSpeed => {
-            SubDoc => 1,
-            Require => 'Text',
-            RawConv => q{
-                $val = pack('C*', map { $_ ^ 0xaa } unpack('C*', substr($val[0], 62, 3)));
-                return undef unless $val =~ /^\d+$/;
-                return $val + 0;
-            },
-        },
-        Accelerometer => {
-            SubDoc => 1,
-            Require => 'Text',
-            Notes => q{
-                the first X,Y,Z accelerometer readings from the AccelerometerData, stored in
-                text format
-            },
-            RawConv => q{
-                $val = pack('C*', map { $_ ^ 0xaa } unpack('C*', substr($val[0], 0xad, 12)));
-                return undef unless $val =~ /^([-+]\d{3})([-+]\d{3})([-+]\d{3})$/;
-                return "$1 $2 $3";
-            },
-        },
-        AccelerometerData => {
-            SubDoc => 1,
-            Require => 'Text',
-            Notes => q{
-                24 values in 6 groups of 4 values each.  For each group, the first value is
-                zero and the next 3 are the X,Y,Z components of acceleration.  The first 5
-                groups are likely samples taken at 5 Hz.  The last group often has zero
-                entries, and its meaning is unknown
-            },
-            RawConv => q{
-                $val = pack('C*', map { $_ ^ 0xaa } unpack('C*', substr($val[0], 0xba, 96)));
-                my $order = GetByteOrder();
-                SetByteOrder('II');
-                $val = ReadValue(\$val, 0, 'float');
-                SetByteOrder($order);
-                return $val;
-            },
-        }            
-    },
-);
-
-1;  #end