exiftool_vendored 13.24.0 → 13.26.0

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: f33904cf1cb68c4430d4c01c96d72b95f075598f22d8dc3d11dd675d748d2d07
-  data.tar.gz: feb3c0a6a5adcdb9d641fe9c525fccbae1f418b6ea2410114a982e405361bef2
+  metadata.gz: 7ade24a22d85fc4d797e0fa157ccbcab31f7ef49a375c50849f76e075e1366ea
+  data.tar.gz: e4f4a5da9a42324b16bc953f1f326abf2700f57e9f15d58661f3863cf359ea01
 SHA512:
-  metadata.gz: 715c7f81c667b8805769396e03b36bd2b2fc22c0085a4755e6f4eb12e9ede928732f3a28f484f14f854e6547bc473466992812ad57b35a70553d86b1f61c30ea
-  data.tar.gz: b3a603f49067c3d03fb7cd4ec1aaee82d3924010e532622ae46f7398e40d6612cbf3fcb8f7e02c0adddb305c971e31a4e8fce19470867b6b68b26567d6931ebb
+  metadata.gz: a3bd7b0e0211feb8854f98a1de7956776cb7dcfc36eb4f224a333a7bf6912e50d433af4c806ca3bde62100a3eb99dd8704862da9092e06a2bc831d5bbba41b3c
+  data.tar.gz: c19b405e58717505f77791c5115bc67d98651b48d4872d25270ecda79ac42a00740495ec324616650c33d3c9931763a1ddb31722318b8ab9071d3476b3033361

data/bin/Changes

@@ -4,9 +4,32 @@ ExifTool Version History
 
 RSS feed: https://exiftool.org/rss.xml
 
-Note: The most recent production release is Version 13.10. (Other versions are
+Note: The most recent production release is Version 13.25. (Other versions are
 considered development releases, and are not uploaded to MetaCPAN.)
 
+Mar. 31, 2025 - Version 13.26
+
+  - Added a new Olympus CameraType (thanks Herb)
+  - Added a new PentaxModelID (github #322)
+  - Added a new Nikon LensID
+  - Improved Duration calculation for some WAV files
+  - Changed a PCAP tag name and fixed typos in a few others (thanks blue-j)
+  - Patched to avoid VignettingCorr warning for images from some Canon cameras
+  - Patched to avoid some unnecessary duplicate tag warnings when -validate used
+    with HEIC images
+  - Fixed issue with XMP-xmpMM:Pantry items not exhibiting proper List-type
+    behaviour
+
+Mar. 11, 2025 - Version 13.25 (production release)
+
+  - IMPORTANT: Fixed issue which could corrupt HEIC images from newer iPhones
+    under certain conditions when writing QuickTime:Rotation
+  - Decode more PLIST information from HEIC images
+  - Updated Geolocation databases from current geonames.org files
+  - Updated DarwinCore for the 2023 specification (thanks Herb)
+  - API Changes:
+      - Added KeepUTCTime option
+
 Mar. 7, 2025 - Version 13.24
 
   - Changed -listf, -listr and -listwf options to print descriptions when either
@@ -15,7 +38,7 @@ Mar. 7, 2025 - Version 13.24
 
 Mar. 7, 2025 - Version 13.23
 
-  - Added read support for CAP, PCAP and PACPNG files
+  - Added read support for CAP, PCAP and PCAPNG files (github #318)
   - Added a number of new Sony LensType2 values (thanks Jos Roost)
   - Added the 2 new GPSAltitudeRef values defined by EXIF 3.0
   - Decode APP4 "Qualcomm Dual Camera Attributes" metadata
@@ -47,7 +70,7 @@ Feb. 20, 2025 - Version 13.21
   - Patched issue that could result in runtime warning for some video files
   - Fixed a bug with the new -plot option that could generate a compiler error
 
-Feb. 20, 2025 - Version 13.20
+Feb. 20, 2025 - Version 13.20 - "SVG Plot"
 
   - Added new -plot option for generating SVG-format plots from tag values
   - Added a new Olympus CameraType

data/bin/META.json

@@ -50,5 +50,5 @@
       }
    },
    "release_status" : "stable",
-   "version" : "13.24"
+   "version" : "13.26"
 }

data/bin/META.yml

@@ -31,4 +31,4 @@ recommends:
   Time::HiRes: '0'
 requires:
   perl: '5.004'
-version: '13.24'
+version: '13.26'

data/bin/README

@@ -109,8 +109,8 @@ your home directory, then you would type the following commands in a
 terminal window to extract and run ExifTool:
 
   cd ~/Desktop
-  gzip -dc Image-ExifTool-13.24.tar.gz | tar -xf -
-  cd Image-ExifTool-13.24
+  gzip -dc Image-ExifTool-13.26.tar.gz | tar -xf -
+  cd Image-ExifTool-13.26
   ./exiftool t/images/ExifTool.jpg
 
 Note:  These commands extract meta information from one of the test images. 
@@ -170,7 +170,7 @@ COPYRIGHT AND LICENSE
 Copyright 2003-2025, Phil Harvey
 
 This is free software; you can redistribute it and/or modify it under the
-same terms as Perl itself.
+same terms as Perl itself (either the Perl Artistic License or GPL).
 
 DISTRIBUTION FILES
 

data/bin/build_geolocation

@@ -40,7 +40,7 @@
 #        6   int8u  - 0xf0 = population E exponent (in format "N.Fe+0E"), 0x0f = population N digit
 #        7   int16u - 0xf000 = population F digit, 0x0fff = index in region list (admin1)
 #        9   int16u - v1.02: 0x7fff = index in subregion (admin2), 0x8000 = high bit of time zone
-#        9   int16u - v1.03: index in subregion (admin2)
+#        9   int16u - v1.03: index in subregion list (admin2)
 #       11   int8u  - low byte of time zone index
 #       12   int8u  - 0x3f = feature code index (see below), v1.03: 0x80 = high bit of time zone
 #       13   string - UTF8 City name, terminated by newline

data/bin/exiftool

@@ -11,7 +11,7 @@ use strict;
 use warnings;
 require 5.004;
 
-my $version = '13.24';
+my $version = '13.26';
 
 $^W = 1;    # enable global warnings
 
@@ -5010,7 +5010,7 @@ B<exiftool> [I<OPTIONS>] [-I<TAG>...] [--I<TAG>...] I<FILE>...
 
 =head2 Writing
 
-B<exiftool> [I<OPTIONS>] -I<TAG>[+-E<lt>]=[I<VALUE>]... I<FILE>...
+B<exiftool> [I<OPTIONS>] -I<TAG>[+-^E<lt>]=[I<VALUE>]... I<FILE>...
 
 =head2 Copying
 
@@ -6053,7 +6053,7 @@ with this command:
 
 produces output like this:
 
-    -- Generated by ExifTool 13.24 --
+    -- Generated by ExifTool 13.26 --
     File: a.jpg - 2003:10:31 15:44:19
     (f/5.6, 1/60s, ISO 100)
     File: b.jpg - 2006:05:23 11:57:38

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

@@ -16,7 +16,7 @@ use vars qw($VERSION);
 use Image::ExifTool::Exif;
 use Image::ExifTool::PLIST;
 
-$VERSION = '1.14';
+$VERSION = '1.15';
 
 sub ConvertPLIST($$);
 
@@ -307,7 +307,17 @@ sub ConvertPLIST($$);
         Name => 'Apple_0x004f',
         Unknown => 1,
         ValueConv => \&ConvertPLIST,
-    }
+    },
+    0x0054 => {
+        Name => 'Apple_0x0054',
+        Unknown => 1,
+        ValueConv => \&ConvertPLIST,
+    },
+    0x005a => {
+        Name => 'Apple_0x005a',
+        Unknown => 1,
+        ValueConv => \&ConvertPLIST,
+    },
 );
 
 # PLIST-format CMTime structure (ref PH)

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

@@ -2053,7 +2053,7 @@ my %offOn = ( 0 => 'Off', 1 => 'On' );
     # 0x4014 (similar to 0x83?)
     0x4015 => [{
         Name => 'VignettingCorr', # (LensPacket)
-        Condition => '$$valPt =~ /^\0/ and $$valPt !~ /^\0\0\0\0/', # (data may be all zeros for 60D)
+        Condition => '$$valPt =~ /^\0/ and $$valPt !~ /^(\0\0\0\0|\x00\x40\xdc\x05)/', # (data may be all zeros for 60D)
         SubDirectory => {
             # (the size word is at byte 2 in this structure)
             Validate => 'Image::ExifTool::Canon::Validate($dirData,$subdirStart+2,$size)',
@@ -2061,7 +2061,7 @@ my %offOn = ( 0 => 'Off', 1 => 'On' );
         },
     },{
         Name => 'VignettingCorrUnknown1',
-        Condition => '$$valPt =~ /^[\x01\x02\x10\x20]/ and $$valPt !~ /^\0\0\0\0/',
+        Condition => '$$valPt =~ /^[\x01\x02\x10\x20]/ and $$valPt !~ /^(\0\0\0\0|\x02\x50\x7c\x04)/',
         SubDirectory => {
             # (the size word is at byte 2 in this structure)
             Validate => 'Image::ExifTool::Canon::Validate($dirData,$subdirStart+2,$size)',
@@ -4758,6 +4758,7 @@ my %ciMaxFocal = (
         Format => 'int32u',
         Notes => 'includes electronic + mechanical shutter',
     },
+    # 0x0b5a - related to image stabilization (ref forum17239) (R5)
     # 0x0bb7 - counts down during focus stack (ref forum16111)
 );
 

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

@@ -4,6 +4,7 @@
 # Description:  Darwin Core XMP tags
 #
 # Revisions:    2013-01-28 - P. Harvey Created
+#               2025-03-09 - Herb forum17172 changes dwc.tdwg.org 2023
 #
 # References:   1) http://rs.tdwg.org/dwc/index.htm
 #               2) https://exiftool.org/forum/index.php/topic,4442.0/all.html
@@ -15,7 +16,7 @@ use strict;
 use vars qw($VERSION);
 use Image::ExifTool::XMP;
 
-$VERSION = '1.07';
+$VERSION = '1.08';
 
 my %dateTimeInfo = (
     # NOTE: Do NOT put "Groups" here because Groups hash must not be common!
@@ -35,7 +36,7 @@ my %event = (
     STRUCT_NAME => 'DarwinCore Event',
     NAMESPACE => 'dwc',
     day                 => { Writable => 'integer', Groups => { 2 => 'Time' } },
-    earliestDate        => { %dateTimeInfo, Groups => { 2 => 'Time' } },
+    earliestDate        => { %dateTimeInfo, Groups => { 2 => 'Time' } },     # dwc.tdwg.org removed 2023
     endDayOfYear        => { Writable => 'integer', Groups => { 2 => 'Time' } },
     eventDate           => { %dateTimeInfo, Groups => { 2 => 'Time' } },
     eventID             => { Avoid => 1, Notes => 'avoided in favor of XMP-iptcExt:EventID' },
@@ -63,7 +64,7 @@ my %event = (
     fieldNotes          => { },
     fieldNumber         => { },
     habitat             => { },
-    latestDate          => { %dateTimeInfo, Groups => { 2 => 'Time' } },
+    latestDate          => { %dateTimeInfo, Groups => { 2 => 'Time' } },      # dwc.tdwg.org removed 2023
     month               => { Writable => 'integer', Groups => { 2 => 'Time' } },
     parentEventID       => { },
     samplingEffort      => { },
@@ -73,6 +74,7 @@ my %event = (
     startDayOfYear      => { Writable => 'integer', Groups => { 2 => 'Time' } },
     verbatimEventDate   => { Groups => { 2 => 'Time' } },
     year                => { Writable => 'integer', Groups => { 2 => 'Time' } },
+    eventType           => { },                                               # dwc.tdwg.org added 2023
 );
 
 # Darwin Core tags
@@ -161,6 +163,7 @@ my %event = (
             measurementType             => { },
             measurementUnit             => { },
             measurementValue            => { },
+            parentMeasurementID         => { },          # dwc.tdwg.org added 2023
         },
     },
     Occurrence => {
@@ -170,25 +173,25 @@ my %event = (
             associatedMedia             => { },
             associatedOccurrences       => { },
             associatedReferences        => { },
-            associatedSequences         => { },
+            associatedSequences         => { },         # dwc.tdwg.org removed 2023
             associatedTaxa              => { },
             behavior                    => { },
             catalogNumber               => { },
-            disposition                 => { },
+            disposition                 => { },         # dwc.tdwg.org removed 2023
             establishmentMeans          => { },
             individualCount             => { },
-            individualID                => { },
+            individualID                => { },         # dwc.tdwg.org removed 2023
             lifeStage                   => { },
             occurrenceDetails           => { },
-            occurrenceID                => { },
+            occurrenceID                => { },         # dwc.tdwg.org removed 2023
             occurrenceRemarks           => { },
             occurrenceStatus            => { },
             organismQuantity            => { },
             organismQuantityType        => { },
             otherCatalogNumbers         => { },
             preparations                => { },
-            previousIdentifications     => { },
-            recordedBy                  => { },
+            previousIdentifications     => { },         # dwc.tdwg.org removed 2023
+            recordedBy                  => { },         # dwc.tdwg.org removed 2023
             recordNumber                => { },
             reproductiveCondition       => { },
             sex                         => { },
@@ -197,6 +200,8 @@ my %event = (
             georeferenceVerificationStatus => { },
             pathway                     => { },
             recordedByID                => { },
+            caste                       => { },         # dwc.tdwg.org added 2023
+            vitality                    => { },         # dwc.tdwg.org added 2023
         },
     },
     OccurrenceOccurrenceDetails => { Name => 'OccurrenceDetails', Flat => 1 },
@@ -207,7 +212,7 @@ my %event = (
         Struct => {
             STRUCT_NAME => 'DarwinCore Organism',
             NAMESPACE => 'dwc',
-            associatedOccurrences       => { },
+            associatedOccurrences       => { },          # dwc.tdwg.org removed 2023
             associatedOrganisms         => { },
             organismID                  => { },
             organismName                => { },
@@ -291,6 +296,12 @@ my %event = (
             taxonomicStatus             => { },
             verbatimTaxonRank           => { },
             vernacularName              => { Writable => 'lang-alt' },
+            superFamily                 => { },     # dwc.tdwg.org added 2023 
+            subFamily                   => { },     # dwc.tdwg.org added 2023
+            tribe                       => { },     # dwc.tdwg.org added 2023
+            subTribe                    => { },     # dwc.tdwg.org added 2023
+            genericName                 => { },     # dwc.tdwg.org added 2023
+            infragenericEpithet         => { },     # dwc.tdwg.org added 2023
         },
     },
     TaxonTaxonConceptID => { Name => 'TaxonConceptID',  Flat => 1 },
@@ -321,7 +332,7 @@ my %event = (
             georeferenceProtocol        => { },
             georeferenceRemarks         => { },
             georeferenceSources         => { },
-            georeferenceVerificationStatus => { },
+            georeferenceVerificationStatus => { },      # dwc.tdwg.org removed 2023    
             higherGeography             => { },
             higherGeographyID           => { },
             island                      => { },

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

@@ -336,6 +336,7 @@ my %manuSig = ( #6
     'Zebr' => 'Zebra Technologies Inc',
     'ZRAN' => 'Zoran Corporation',
     # also seen: "    ",ACMS,KCMS,UCCM,etc2,SCTX
+    # registry: https://www.color.org/signatureRegistry/index.xalter
 );
 
 # ICC_Profile tag table

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

@@ -65,7 +65,7 @@ use Image::ExifTool::Exif;
 use Image::ExifTool::GPS;
 use Image::ExifTool::XMP;
 
-$VERSION = '4.45';
+$VERSION = '4.46';
 
 sub LensIDConv($$$);
 sub ProcessNikonAVI($$$);
@@ -552,6 +552,7 @@ sub GetAFPointGrid($$;$);
     '21 56 8E 8E 24 24 14 00' => 'Tamron SP AF 300mm f/2.8 LD-IF (60E)',
     '27 54 8E 8E 24 24 1D 02' => 'Tamron SP AF 300mm f/2.8 LD-IF (360E)',
     'E1 40 19 36 2C 35 DF 4E' => 'Tamron 10-24mm f/3.5-4.5 Di II VC HLD (B023)',
+    'E1 40 19 36 2C 35 DF 0E' => 'Tamron 10-24mm f/3.5-4.5 Di II VC HLD (B023)', #30
     'F6 3F 18 37 2C 34 84 06' => 'Tamron SP AF 10-24mm f/3.5-4.5 Di II LD Aspherical (IF) (B001)',
     'F6 3F 18 37 2C 34 DF 06' => 'Tamron SP AF 10-24mm f/3.5-4.5 Di II LD Aspherical (IF) (B001)', #30
     '00 36 1C 2D 34 3C 00 06' => 'Tamron SP AF 11-18mm f/4.5-5.6 Di II LD Aspherical (IF) (A13)',

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

@@ -40,7 +40,7 @@ use Image::ExifTool qw(:DataAccess :Utils);
 use Image::ExifTool::Exif;
 use Image::ExifTool::APP12;
 
-$VERSION = '2.84';
+$VERSION = '2.85';
 
 sub PrintLensInfo($$$);
 
@@ -446,6 +446,7 @@ my %olympusCameraTypes = (
     S0095 => 'OM-1', #IB
     S0101 => 'OM-5', #IB
     S0121 => 'OM-1MarkII', #forum15652
+    S0123 => 'OM-3', #forum17208
     SR45 => 'D220',
     SR55 => 'D320L',
     SR83 => 'D340L',

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

@@ -16,7 +16,7 @@ use strict;
 use vars qw($VERSION);
 use Image::ExifTool qw(:DataAccess :Utils);
 
-$VERSION = '1.00';
+$VERSION = '1.01';
 
 %Image::ExifTool::PCAP::Main = (
     GROUPS => { 0 => 'File', 1 => 'File', 2 => 'Other' },
@@ -261,14 +261,14 @@ $VERSION = '1.00';
         },
     },
     19373 => {
-        Name => 'CustomOption3',
+        Name => 'CustomOption4',
         Binary => 1,
     },
 #
 # "options" tags in Section Header Block
 #
     'SHB-2' => 'Hardware',
-    'SHB-3' => 'OperatingSytem',
+    'SHB-3' => 'OperatingSystem',
     'SHB-4' => 'UserApplication',
 #
 # "options" tags in Interface Description Block
@@ -308,8 +308,8 @@ $VERSION = '1.00';
         Name => 'Filter',
         ValueConv => 'Get8u(\$val,0) . ": " . substr($val, 1)',
     },
-    'IDB-12' => 'OperatingSytem',
-    'IDB-13' => { Name => 'FCSLen',  Format => 'int8u' },
+    'IDB-12' => 'OperatingSystem',
+    'IDB-13' => { Name => 'FrameCheckSequenceLength',  Format => 'int8u' },
     'IDB-14' => {
         Name => 'TimeStampOffset',
         Format => 'int64u',

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

@@ -21,7 +21,7 @@ use Image::ExifTool qw(:DataAccess :Utils);
 use Image::ExifTool::XMP;
 use Image::ExifTool::GPS;
 
-$VERSION = '1.14';
+$VERSION = '1.15';
 
 sub ExtractObject($$;$);
 sub Get24u($$);
@@ -352,7 +352,7 @@ sub ExtractObject($$;$)
                         my $name = $tag;
                         $name =~ s/([^A-Za-z])([a-z])/$1\u$2/g; # capitalize words
                         $name =~ tr/-_a-zA-Z0-9//dc; # remove illegal characters
-                        $name = "Tag$name" if length($name) < 2 or $name =~ /^[-0-9]/;
+                        $name = 'Tag'.ucfirst($name) if length($name) < 2 or $name =~ /^[-0-9]/;
                         $tagInfo = { Name => ucfirst($name), List => 1 };
                         if ($$plistInfo{DateFormat}) {
                             $$tagInfo{Groups}{2} = 'Time';

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

@@ -58,7 +58,7 @@ use Image::ExifTool::Exif;
 use Image::ExifTool::GPS;
 use Image::ExifTool::HP;
 
-$VERSION = '3.47';
+$VERSION = '3.48';
 
 sub CryptShutterCount($$);
 sub PrintFilter($$$);
@@ -558,6 +558,7 @@ my %pentaxModelID = (
     0x13254 => 'K-3 Mark III', #IB (Ricoh)
     0x13290 => 'WG-70', # (Ricoh)
     0x1329a => 'GR IIIx', # (Ricoh)
+    0x132b8 => 'KF', #github322 (Ricoh)
     0x132d6 => 'K-3 Mark III Monochrome', #github226 (Ricoh)
 );
 

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

@@ -38,6 +38,7 @@
 #   26) https://github.com/SamsungVR/android_upload_sdk/blob/master/SDKLib/src/main/java/com/samsung/msca/samsungvr/sdk/UserVideo.java
 #   27) https://exiftool.org/forum/index.php?topic=11517.0
 #   28) https://docs.mp3tag.de/mapping/
+#   29) https://developer.apple.com/documentation/quicktime-file-format/media_data_reference_atom
 #------------------------------------------------------------------------------
 
 package Image::ExifTool::QuickTime;
@@ -48,7 +49,7 @@ use Image::ExifTool qw(:DataAccess :Utils);
 use Image::ExifTool::Exif;
 use Image::ExifTool::GPS;
 
-$VERSION = '3.13';
+$VERSION = '3.15';
 
 sub ProcessMOV($$;$);
 sub ProcessKeys($$$);
@@ -492,6 +493,8 @@ my %qtFlags = ( #12
 %dontInherit = (
     ispe => 1,  # primary item must have an ispe and pixi, so no need to inherit these
     pixi => 1,
+    irot => 1,  # (tmap may have a different irot)
+    pasp => 1,  # (NC)
     hvcC => 2,  # (hvcC is a property of hvc1 referred to by primary grid)
     colr => 2,  # (colr is a property of primary grid or hvc1 referred to by primary)
 );
@@ -500,7 +503,7 @@ my %qtFlags = ( #12
 # (used only to avoid warnings when Validate-ing)
 my %dupTagOK = ( mdat => 1, trak => 1, free => 1, infe => 1, sgpd => 1, dimg => 1, CCDT => 1,
                  sbgp => 1, csgm => 1, uuid => 1, cdsc => 1, maxr => 1, '----' => 1 );
-my %dupDirOK = ( ipco => 1, '----' => 1 );
+my %dupDirOK = ( ipco => 1, iref => 1, '----' => 1 );
 
 # the usual atoms required to decode timed metadata with the ExtractEmbedded option
 my %eeStd = ( stco => 'stbl', co64 => 'stbl', stsz => 'stbl', stz2 => 'stbl',
@@ -1225,6 +1228,7 @@ my %userDefined = (
     # clip - clipping --> contains crgn (clip region) (ref 12)
     # mvex - movie extends --> contains mehd (movie extends header), trex (track extends) (ref 14)
     # ICAT - 4 bytes: "6350" (Nikon CoolPix S6900), "6500" (Panasonic FT7)
+    # ctab - color table (ref 29)
 );
 
 # (ref CFFMediaFormat-2_1.pdf)
@@ -1424,6 +1428,7 @@ my %userDefined = (
     # load - track loading settings
     # imap - track input map --> contains '  in' --> contains '  ty', obid
     # prfl - Profile (ref 12)
+    # txas - track exclude from autoselection (ref 29)
 );
 
 # track header data block
@@ -1628,6 +1633,10 @@ my %userDefined = (
             Start => 4, # must skip 4-byte version number header
         },
     },
+    tnam => { #29 (NC)
+        Name => 'TrackName',
+        IText => 4,
+    },
    'ptv '=> {
         Name => 'PrintToVideo',
         SubDirectory => { TagTable => 'Image::ExifTool::QuickTime::Video' },
@@ -2799,6 +2808,8 @@ my %userDefined = (
         Name => 'Unknown_grpl',
         SubDirectory => { TagTable => 'Image::ExifTool::QuickTime::grpl' },
     },
+    # ctry - country list (ref 29)
+    # lang - language list (ref 29)
 );
 
 # unknown grpl container
@@ -2854,6 +2865,7 @@ my %userDefined = (
 %Image::ExifTool::QuickTime::ItemPropCont = (
     PROCESS_PROC => \&ProcessMOV,
     WRITE_PROC => \&WriteQuickTime,
+    CHECK_PROC => \&CheckQTValue,
     PERMANENT => 1, # (can't be deleted)
     GROUPS => { 2 => 'Image' },
     VARS => { START_INDEX => 1 },   # show verbose indices starting at 1
@@ -2911,6 +2923,7 @@ my %userDefined = (
         Name => 'PixelAspectRatio',
         Format => 'int32u',
         Writable => 'int32u',
+        Count => 2,
         Protected => 1,
     },
     rloc => {
@@ -3275,21 +3288,28 @@ my %userDefined = (
 %Image::ExifTool::QuickTime::TrackRef = (
     PROCESS_PROC => \&ProcessMOV,
     GROUPS => { 1 => 'Track#', 2 => 'Video' },
-    chap => { Name => 'ChapterListTrackID', Format => 'int32u' },
-    tmcd => { Name => 'TimeCode', Format => 'int32u' },
+    chap => { Name => 'ChapterListTrackID',     Format => 'int32u' },
+    tmcd => { Name => 'TimecodeTrack',          Format => 'int32u' },
     mpod => { #PH (FLIR MP4)
         Name => 'ElementaryStreamTrack',
         Format => 'int32u',
         ValueConv => '$val =~ s/^1 //; $val',  # (why 2 numbers? -- ignore the first if "1")
     },
-    # also: sync, scpt, ssrc, iTunesInfo
+    # also: iTunesInfo
     cdsc => {
         Name => 'ContentDescribes',
         Format => 'int32u',
         PrintConv => '"Track $val"',
     },
-    # cdep (Structural Dependency QT tag?)
-    # fall - ? int32u, seen: 2
+    clcp => { Name => 'ClosedCaptionTrack',     Format => 'int32u' }, #29
+    fall => { Name => 'AlternateFormatTrack',   Format => 'int32u' }, #29
+    folw => { Name => 'SubtitleTrack',          Format => 'int32u' }, #29
+    forc => { Name => 'ForcedSubtitleTrack',    Format => 'int32u' }, #29
+    scpt => { Name => 'TranscriptTrack',        Format => 'int32u' }, #29
+    ssrc => { Name => 'Non-primarySourceTrack', Format => 'int32u' }, #29
+    sync => { Name => 'SyncronizedTrack',       Format => 'int32u' }, #29
+    # hint - Original media for hint track (ref 29)
+    # cdep (Structural Dependency QT tag?)    
 );
 
 # track aperture mode dimensions atoms
@@ -6578,7 +6598,6 @@ my %userDefined = (
     'apple.photos.variation-identifier'   => { Name => 'ApplePhotosVariationIdentifier',  Writable => 'int64s' },
     'direction.facing' => { Name => 'CameraDirection', Groups => { 2 => 'Location' } },
     'direction.motion' => { Name => 'CameraMotion',    Groups => { 2 => 'Location' } },
-    'location.body'    => { Name => 'LocationBody',    Groups => { 2 => 'Location' } },
     'player.version'                => 'PlayerVersion',
     'player.movie.visual.brightness'=> 'Brightness',
     'player.movie.visual.color'     => 'Color',
@@ -7042,6 +7061,7 @@ my %userDefined = (
         Name => 'MediaInfo',
         SubDirectory => { TagTable => 'Image::ExifTool::QuickTime::MediaInfo' },
     },
+    elng => 'ExtendedLanguageTag', #29 (NC) eg. "zh-CN"
 );
 
 # MP4 media header box (ref 5)
@@ -7633,6 +7653,8 @@ my %userDefined = (
     mrlh => { Name => 'MarlinHeader',    SubDirectory => { TagTable => 'Image::ExifTool::GM::mrlh' } },
     mrlv => { Name => 'MarlinValues',    SubDirectory => { TagTable => 'Image::ExifTool::GM::mrlv' } },
     mrld => { Name => 'MarlinDictionary',SubDirectory => { TagTable => 'Image::ExifTool::GM::mrld' } },
+  # tbox - text box (ref 29)
+  # styl - subtitle style (ref 29)
 );
 
 # AMR decode config box (ref 3)
@@ -9174,7 +9196,8 @@ sub HandleItemInfo($)
                 $et->VPrint(0, "$$et{INDENT}Item $id) '${type}' ($len bytes$enc)\n");
             }
             # get ExifTool name for this item
-            my $name = { Exif => 'EXIF', 'application/rdf+xml' => 'XMP', jpeg => 'PreviewImage' }->{$type} || '';
+            my $name = { Exif => 'EXIF', 'application/rdf+xml' => 'XMP', jpeg => 'PreviewImage',
+                         'uri ' => 'PLIST' }->{$type} || '';
             my ($warn, $extent);
             if ($$item{ContentEncoding}) {
                 if ($$item{ContentEncoding} ne 'deflate') {
@@ -9267,7 +9290,6 @@ sub HandleItemInfo($)
             if ($name eq 'EXIF' and length $buff >= 4) {
                 if ($buff =~ /^(MM\0\x2a|II\x2a\0)/) {
                     $et->Warn('Missing Exif header');
-                    $start = 0;
                 } elsif ($buff =~ /^Exif\0\0/) {
                     # (haven't seen this yet, but it is just a matter of time
                     #  until someone screws it up like this)
@@ -9302,10 +9324,14 @@ sub HandleItemInfo($)
                 }
                 $et->FoundTag($type => $buff);
                 next;
+            } elsif ($name eq 'PLIST') {
+                # extract PLIST information from 'uri ' if available
+                next unless $buff =~ /^bplist00/;
+                $subTable = GetTagTable('Image::ExifTool::PLIST::Main');
             } else {
-                $start = 0;
                 $subTable = GetTagTable('Image::ExifTool::XMP::Main');
             }
+            $start or $start = 0;
             my %dirInfo = (
                 DataPt   => \$buff,
                 DataLen  => length $buff,