exiftool_vendored 13.16.0 → 13.18.0

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

@@ -48,7 +48,7 @@ use Image::ExifTool qw(:DataAccess :Utils);
 use Image::ExifTool::Exif;
 use Image::ExifTool::GPS;
 
-$VERSION = '3.11';
+$VERSION = '3.12';
 
 sub ProcessMOV($$;$);
 sub ProcessKeys($$$);
@@ -510,7 +510,7 @@ my %hashBox = ( vide => { %eeStd }, soun => { %eeStd } );
 # used, but others have been checked against all available sample files and may be
 # useful in the future if the names are used for different boxes on other locations)
 my %eeBox = (
-    # (note: vide is only processed if specific atoms exist in the VideoSampleDesc)
+    # (note: vide is only processed if specific atoms exist in the VisualSampleDesc)
     vide => { %eeStd, JPEG => 'stsd' },
     text => { %eeStd },
     meta => { %eeStd },
@@ -1005,7 +1005,7 @@ my %userDefined = (
     NOTES => 'Tags used in QTIF QuickTime Image Files.',
     idsc => {
         Name => 'ImageDescription',
-        SubDirectory => { TagTable => 'Image::ExifTool::QuickTime::ImageDesc' },
+        SubDirectory => { TagTable => 'Image::ExifTool::QuickTime::VisualSampleDesc' },
     },
     idat => {
         Name => 'ImageData',
@@ -1017,158 +1017,6 @@ my %userDefined = (
     },
 );
 
-# image description data block
-%Image::ExifTool::QuickTime::ImageDesc = (
-    PROCESS_PROC => \&ProcessHybrid,
-    VARS => { ID_LABEL => 'ID/Index' },
-    GROUPS => { 2 => 'Image' },
-    FORMAT => 'int16u',
-    2 => {
-        Name => 'CompressorID',
-        Format => 'string[4]',
-# not very useful since this isn't a complete list and name is given below
-#        # ref http://developer.apple.com/mac/library/documentation/QuickTime/QTFF/QTFFChap3/qtff3.html
-#        PrintConv => {
-#            cvid => 'Cinepak',
-#            jpeg => 'JPEG',
-#           'smc '=> 'Graphics',
-#           'rle '=> 'Animation',
-#            rpza => 'Apple Video',
-#            kpcd => 'Kodak Photo CD',
-#           'png '=> 'Portable Network Graphics',
-#            mjpa => 'Motion-JPEG (format A)',
-#            mjpb => 'Motion-JPEG (format B)',
-#            SVQ1 => 'Sorenson video, version 1',
-#            SVQ3 => 'Sorenson video, version 3',
-#            mp4v => 'MPEG-4 video',
-#           'dvc '=> 'NTSC DV-25 video',
-#            dvcp => 'PAL DV-25 video',
-#           'gif '=> 'Compuserve Graphics Interchange Format',
-#            h263 => 'H.263 video',
-#            tiff => 'Tagged Image File Format',
-#           'raw '=> 'Uncompressed RGB',
-#           '2vuY'=> "Uncompressed Y'CbCr, 3x8-bit 4:2:2 (2vuY)",
-#           'yuv2'=> "Uncompressed Y'CbCr, 3x8-bit 4:2:2 (yuv2)",
-#            v308 => "Uncompressed Y'CbCr, 8-bit 4:4:4",
-#            v408 => "Uncompressed Y'CbCr, 8-bit 4:4:4:4",
-#            v216 => "Uncompressed Y'CbCr, 10, 12, 14, or 16-bit 4:2:2",
-#            v410 => "Uncompressed Y'CbCr, 10-bit 4:4:4",
-#            v210 => "Uncompressed Y'CbCr, 10-bit 4:2:2",
-#            hvc1 => 'HEVC', #PH
-#        },
-    },
-    10 => {
-        Name => 'VendorID',
-        Format => 'string[4]',
-        RawConv => 'length $val ? $val : undef',
-        PrintConv => \%vendorID,
-        SeparateTable => 'VendorID',
-    },
-  # 14 - ("Quality" in QuickTime docs) ??
-    16 => 'SourceImageWidth',
-    17 => 'SourceImageHeight',
-    18 => { Name => 'XResolution',  Format => 'fixed32u' },
-    20 => { Name => 'YResolution',  Format => 'fixed32u' },
-  # 24 => 'FrameCount', # always 1 (what good is this?)
-    25 => {
-        Name => 'CompressorName',
-        Format => 'string[32]',
-        # (sometimes this is a Pascal string, and sometimes it is a C string)
-        RawConv => q{
-            $val=substr($val,1,ord($1)) if $val=~/^([\0-\x1f])/ and ord($1)<length($val);
-            length $val ? $val : undef;
-        },
-    },
-    41 => 'BitDepth',
-#
-# Observed offsets for child atoms of various CompressorID types:
-#
-#   CompressorID  Offset  Child atoms
-#   -----------   ------  ----------------
-#   avc1          86      avcC, btrt, colr, pasp, fiel, clap, svcC
-#   mp4v          86      esds, pasp
-#   s263          86      d263
-#
-    btrt => {
-        Name => 'BitrateInfo',
-        SubDirectory => { TagTable => 'Image::ExifTool::QuickTime::Bitrate' },
-    },
-    # Reference for fiel, colr, pasp, clap:
-    # https://developer.apple.com/library/mac/technotes/tn2162/_index.html#//apple_ref/doc/uid/DTS40013070-CH1-TNTAG9
-    fiel => {
-        Name => 'VideoFieldOrder',
-        ValueConv => 'join(" ", unpack("C*",$val))',
-        PrintConv => [{
-            1 => 'Progressive',
-            2 => '2:1 Interlaced',
-        }],
-    },
-    colr => {
-        Name => 'ColorRepresentation',
-        SubDirectory => { TagTable => 'Image::ExifTool::QuickTime::ColorRep' },
-    },
-    pasp => {
-        Name => 'PixelAspectRatio',
-        ValueConv => 'join(":", unpack("N*",$val))',
-    },
-    clap => {
-        Name => 'CleanAperture',
-        SubDirectory => { TagTable => 'Image::ExifTool::QuickTime::CleanAperture' },
-    },
-    avcC => {
-        # (see http://thompsonng.blogspot.ca/2010/11/mp4-file-format-part-2.html)
-        Name => 'AVCConfiguration',
-        Unknown => 1,
-        Binary => 1,
-    },
-    JPEG => { # (found in CR3 images; used as a flag to identify JpgFromRaw 'vide' stream)
-        Name => 'JPEGInfo',
-        # (4 bytes all zero)
-        Unknown => 1,
-        Binary => 1,
-    },
-    # hvcC - HEVC configuration
-    # svcC - 7 bytes: 00 00 00 00 ff e0 00
-    # esds - elementary stream descriptor
-    # d263
-    gama => { Name => 'Gamma', Format => 'fixed32u' },
-    # mjqt - default quantization table for MJPEG
-    # mjht - default Huffman table for MJPEG
-    # csgm ? (seen in hevc video)
-    CMP1 => { # Canon CR3
-        Name => 'CMP1',
-        SubDirectory => { TagTable => 'Image::ExifTool::Canon::CMP1' },
-    },
-    CDI1 => { # Canon CR3
-        Name => 'CDI1',
-        SubDirectory => {
-            TagTable => 'Image::ExifTool::Canon::CDI1',
-            Start => 4,
-        },
-    },
-    # JPEG - 4 bytes all 0 (Canon CR3)
-    # free - (Canon CR3)
-#
-# spherical video v2 stuff (untested)
-#
-    st3d => {
-        Name => 'Stereoscopic3D',
-        Format => 'int8u',
-        ValueConv => '$val =~ s/.* //; $val', # (remove leading version/flags bytes?)
-        PrintConv => {
-            0 => 'Monoscopic',
-            1 => 'Stereoscopic Top-Bottom',
-            2 => 'Stereoscopic Left-Right',
-            3 => 'Stereoscopic Stereo-Custom',
-            4 => 'Stereoscopic Right-Left',
-        },
-    },
-    sv3d => {
-        Name => 'SphericalVideo',
-        SubDirectory => { TagTable => 'Image::ExifTool::QuickTime::sv3d' },
-    },
-);
-
 # 'sv3d' atom information (ref https://github.com/google/spatial-media/blob/master/docs/spherical-video-v2-rfc.md)
 %Image::ExifTool::QuickTime::sv3d = (
     PROCESS_PROC => \&ProcessMOV,
@@ -2227,7 +2075,7 @@ my %userDefined = (
         ValueConvInv => 'pack("H*",$val)',
     },
     # SETT? 12 bytes (Hero4)
-    # MUID? 32 bytes (Hero4, starts with serial number hash)
+    MUID => { Name => 'MediaUID', ValueConv => 'unpack("H*", $val)' },
     # HMMT? 404 bytes (Hero4, all zero)
     # BCID? 26 bytes (Hero5, all zero), 36 bytes GoPro Max
     # GUMI? 16 bytes (Hero5)
@@ -3001,7 +2849,9 @@ my %userDefined = (
     colr => [{
         Name => 'ICC_Profile',
         Condition => '$$valPt =~ /^(prof|rICC)/',
-        Permanent => 0, # (in QuickTime, this writes a zero-length box instead of deleting)
+        # (don't do this because Apple Preview won't display an HEIC with a 0-length profile)
+        # Permanent => 0, # (in QuickTime, this writes a zero-length box instead of deleting)
+        Permanent => 1,
         SubDirectory => {
             TagTable => 'Image::ExifTool::ICC_Profile::Main',
             Start => 4,
@@ -7324,10 +7174,10 @@ my %userDefined = (
                 ProcessProc => \&ProcessSampleDesc,
             },
         },{
-            Name => 'VideoSampleDesc',
+            Name => 'VisualSampleDesc',
             Condition => '$$self{HandlerType} and $$self{HandlerType} eq "vide"',
             SubDirectory => {
-                TagTable => 'Image::ExifTool::QuickTime::ImageDesc',
+                TagTable => 'Image::ExifTool::QuickTime::VisualSampleDesc',
                 ProcessProc => \&ProcessSampleDesc,
             },
         },{
@@ -7463,6 +7313,7 @@ my %userDefined = (
         # see this link for print conversions (not complete):
         # https://github.com/yannickcr/brooser/blob/master/php/librairies/getid3/module.audio-video.quicktime.php
     },
+  # 14 - int16u DataReferenceIndex
     20 => { #PH
         Name => 'AudioVendorID',
         Condition => '$$self{AudioFormat} ne "mp4s"',
@@ -7527,6 +7378,252 @@ my %userDefined = (
     # dapa - ? 203 bytes
 );
 
+# video and image sample description data block
+%Image::ExifTool::QuickTime::VisualSampleDesc = (
+    PROCESS_PROC => \&ProcessHybrid,
+    VARS => { ID_LABEL => 'ID/Index' },
+    GROUPS => { 2 => 'Image' },
+    FORMAT => 'int16u',
+    2 => {
+        Name => 'CompressorID',
+        Format => 'string[4]',
+# not very useful since this isn't a complete list and name is given below
+#        # ref http://developer.apple.com/mac/library/documentation/QuickTime/QTFF/QTFFChap3/qtff3.html
+#        PrintConv => {
+#            cvid => 'Cinepak',
+#            jpeg => 'JPEG',
+#           'smc '=> 'Graphics',
+#           'rle '=> 'Animation',
+#            rpza => 'Apple Video',
+#            kpcd => 'Kodak Photo CD',
+#           'png '=> 'Portable Network Graphics',
+#            mjpa => 'Motion-JPEG (format A)',
+#            mjpb => 'Motion-JPEG (format B)',
+#            SVQ1 => 'Sorenson video, version 1',
+#            SVQ3 => 'Sorenson video, version 3',
+#            mp4v => 'MPEG-4 video',
+#           'dvc '=> 'NTSC DV-25 video',
+#            dvcp => 'PAL DV-25 video',
+#           'gif '=> 'Compuserve Graphics Interchange Format',
+#            h263 => 'H.263 video',
+#            tiff => 'Tagged Image File Format',
+#           'raw '=> 'Uncompressed RGB',
+#           '2vuY'=> "Uncompressed Y'CbCr, 3x8-bit 4:2:2 (2vuY)",
+#           'yuv2'=> "Uncompressed Y'CbCr, 3x8-bit 4:2:2 (yuv2)",
+#            v308 => "Uncompressed Y'CbCr, 8-bit 4:4:4",
+#            v408 => "Uncompressed Y'CbCr, 8-bit 4:4:4:4",
+#            v216 => "Uncompressed Y'CbCr, 10, 12, 14, or 16-bit 4:2:2",
+#            v410 => "Uncompressed Y'CbCr, 10-bit 4:4:4",
+#            v210 => "Uncompressed Y'CbCr, 10-bit 4:2:2",
+#            hvc1 => 'HEVC', #PH
+#        },
+    },
+  # 7 - int16u DataReferenceIndex
+    10 => {
+        Name => 'VendorID',
+        Format => 'string[4]',
+        RawConv => 'length $val ? $val : undef',
+        PrintConv => \%vendorID,
+        SeparateTable => 'VendorID',
+    },
+  # 14 - ("Quality" in QuickTime docs) ??
+    16 => 'SourceImageWidth',
+    17 => 'SourceImageHeight',
+    18 => { Name => 'XResolution',  Format => 'fixed32u' },
+    20 => { Name => 'YResolution',  Format => 'fixed32u' },
+  # 24 => 'FrameCount', # always 1 (what good is this?)
+    25 => {
+        Name => 'CompressorName',
+        Format => 'string[32]',
+        # (sometimes this is a Pascal string, and sometimes it is a C string)
+        RawConv => q{
+            $val=substr($val,1,ord($1)) if $val=~/^([\0-\x1f])/ and ord($1)<length($val);
+            length $val ? $val : undef;
+        },
+    },
+    41 => 'BitDepth',
+#
+# Observed offsets for child atoms of various CompressorID types:
+#
+#   CompressorID  Offset  Child atoms
+#   -----------   ------  ----------------
+#   avc1          86      avcC, btrt, colr, pasp, fiel, clap, svcC
+#   mp4v          86      esds, pasp
+#   s263          86      d263
+#
+    btrt => {
+        Name => 'BitrateInfo',
+        SubDirectory => { TagTable => 'Image::ExifTool::QuickTime::Bitrate' },
+    },
+    # Reference for fiel, colr, pasp, clap:
+    # https://developer.apple.com/library/mac/technotes/tn2162/_index.html#//apple_ref/doc/uid/DTS40013070-CH1-TNTAG9
+    fiel => {
+        Name => 'VideoFieldOrder',
+        ValueConv => 'join(" ", unpack("C*",$val))',
+        PrintConv => [{
+            1 => 'Progressive',
+            2 => '2:1 Interlaced',
+        }],
+    },
+    colr => {
+        Name => 'ColorRepresentation',
+        SubDirectory => { TagTable => 'Image::ExifTool::QuickTime::ColorRep' },
+    },
+    pasp => {
+        Name => 'PixelAspectRatio',
+        ValueConv => 'join(":", unpack("N*",$val))',
+    },
+    clap => {
+        Name => 'CleanAperture',
+        SubDirectory => { TagTable => 'Image::ExifTool::QuickTime::CleanAperture' },
+    },
+    avcC => {
+        # (see http://thompsonng.blogspot.ca/2010/11/mp4-file-format-part-2.html)
+        Name => 'AVCConfiguration',
+        Unknown => 1,
+        Binary => 1,
+    },
+    JPEG => { # (found in CR3 images; used as a flag to identify JpgFromRaw 'vide' stream)
+        Name => 'JPEGInfo',
+        # (4 bytes all zero)
+        Unknown => 1,
+        Binary => 1,
+    },
+    # hvcC - HEVC configuration
+    # svcC - 7 bytes: 00 00 00 00 ff e0 00
+    # esds - elementary stream descriptor
+    # d263
+    gama => { Name => 'Gamma', Format => 'fixed32u' },
+    # mjqt - default quantization table for MJPEG
+    # mjht - default Huffman table for MJPEG
+    # csgm ? (seen in hevc video)
+    CMP1 => { # Canon CR3
+        Name => 'CMP1',
+        SubDirectory => { TagTable => 'Image::ExifTool::Canon::CMP1' },
+    },
+    CDI1 => { # Canon CR3
+        Name => 'CDI1',
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::Canon::CDI1',
+            Start => 4,
+        },
+    },
+    # JPEG - 4 bytes all 0 (Canon CR3)
+    # free - (Canon CR3)
+#
+# spherical video v2 stuff (untested)
+#
+    st3d => {
+        Name => 'Stereoscopic3D',
+        Format => 'int8u',
+        ValueConv => '$val =~ s/.* //; $val', # (remove leading version/flags bytes?)
+        PrintConv => {
+            0 => 'Monoscopic',
+            1 => 'Stereoscopic Top-Bottom',
+            2 => 'Stereoscopic Left-Right',
+            3 => 'Stereoscopic Stereo-Custom',
+            4 => 'Stereoscopic Right-Left',
+        },
+    },
+    sv3d => {
+        Name => 'SphericalVideo',
+        SubDirectory => { TagTable => 'Image::ExifTool::QuickTime::sv3d' },
+    },
+);
+
+# MP4 hint sample description box (ref 5)
+# (ref https://developer.apple.com/library/mac/documentation/QuickTime/QTFF/QTFFChap3/qtff3.html#//apple_ref/doc/uid/TP40000939-CH205-SW1)
+%Image::ExifTool::QuickTime::HintSampleDesc = (
+    PROCESS_PROC => \&ProcessHybrid,
+    VARS => { ID_LABEL => 'ID/Index' },
+    NOTES => 'MP4 hint sample description.',
+    4  => { Name => 'HintFormat', Format => 'undef[4]' },
+  # 14 - int16u DataReferenceIndex
+    16 => { Name => 'HintTrackVersion', Format => 'int16u' },
+  # 18 - int16u LastCompatibleHintTrackVersion
+    20 => { Name => 'MaxPacketSize', Format => 'int32u' },
+#
+# Observed offsets for child atoms of various HintFormat types:
+#
+#   HintFormat   Offset  Child atoms
+#   -----------  ------  ----------------
+#   "rtp "       24      tims
+#
+    tims => { Name => 'RTPTimeScale',               Format => 'int32u' },
+    tsro => { Name => 'TimestampRandomOffset',      Format => 'int32u' },
+    snro => { Name => 'SequenceNumberRandomOffset', Format => 'int32u' },
+);
+
+# MP4 metadata sample description box
+%Image::ExifTool::QuickTime::MetaSampleDesc = (
+    PROCESS_PROC => \&ProcessHybrid,
+    NOTES => 'MP4 metadata sample description.',
+    4 => {
+        Name => 'MetaFormat',
+        Format => 'undef[4]',
+        RawConv => '$$self{MetaFormat} = $val',
+    },
+    8 => { # starts at 8 for MetaFormat eq 'camm', and 17 for 'mett'
+        Name => 'MetaType',
+        Format => 'undef[$size-8]',
+        # may start at various locations!
+        RawConv => '$$self{MetaType} = ($val=~/(application[^\0]+)/ ? $1 : undef)',
+    },
+#
+# Observed offsets for child atoms of various MetaFormat types:
+#
+#   MetaFormat   Offset  Child atoms
+#   -----------  ------  ----------------
+#   mebx         24      keys,btrt,lidp,lidl
+#   fdsc         -       -
+#   gpmd         -       -
+#   rtmd         -       -
+#   CTMD         -       -
+#
+   'keys' => { #PH (iPhone7+ hevc)
+        Name => 'Keys',
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::QuickTime::Keys',
+            ProcessProc => \&ProcessMetaKeys,
+        },
+    },
+    btrt => {
+        Name => 'BitrateInfo',
+        SubDirectory => { TagTable => 'Image::ExifTool::QuickTime::Bitrate' },
+    },
+);
+
+# MP4 generic sample description box
+%Image::ExifTool::QuickTime::OtherSampleDesc = (
+    PROCESS_PROC => \&ProcessHybrid,
+    4 => {
+        Name => 'OtherFormat',
+        Format => 'undef[4]',
+        RawConv => '$$self{MetaFormat} = $val', # (yes, use MetaFormat for this too)
+    },
+    24 => {
+        Condition => '$$self{MetaFormat} eq "tmcd"',
+        Name => 'PlaybackFrameRate', # (may differ from recorded FrameRate eg. ../pics/FujiFilmX-H1.mov)
+        Format => 'rational64u',
+    },
+#
+# Observed offsets for child atoms of various OtherFormat types:
+#
+#   OtherFormat  Offset  Child atoms
+#   -----------  ------  ----------------
+#   avc1         86      avcC
+#   mp4a         36      esds
+#   mp4s         16      esds
+#   tmcd         34      name
+#   data         -       -
+#
+    ftab => { Name => 'FontTable',  Format => 'undef', ValueConv => 'substr($val, 5)' },
+    name => { Name => 'OtherName',  Format => 'undef', ValueConv => 'substr($val, 4)' },
+    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' } },
+);
+
 # AMR decode config box (ref 3)
 %Image::ExifTool::QuickTime::DecodeConfig = (
     PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
@@ -7950,99 +8047,6 @@ my %userDefined = (
     # hi32 - seen "00 00 00 04"
 );
 
-# MP4 hint sample description box (ref 5)
-# (ref https://developer.apple.com/library/mac/documentation/QuickTime/QTFF/QTFFChap3/qtff3.html#//apple_ref/doc/uid/TP40000939-CH205-SW1)
-%Image::ExifTool::QuickTime::HintSampleDesc = (
-    PROCESS_PROC => \&ProcessHybrid,
-    VARS => { ID_LABEL => 'ID/Index' },
-    NOTES => 'MP4 hint sample description.',
-    4  => { Name => 'HintFormat', Format => 'undef[4]' },
-    # 14 - int16u DataReferenceIndex
-    16 => { Name => 'HintTrackVersion', Format => 'int16u' },
-    # 18 - int16u LastCompatibleHintTrackVersion
-    20 => { Name => 'MaxPacketSize', Format => 'int32u' },
-#
-# Observed offsets for child atoms of various HintFormat types:
-#
-#   HintFormat   Offset  Child atoms
-#   -----------  ------  ----------------
-#   "rtp "       24      tims
-#
-    tims => { Name => 'RTPTimeScale',               Format => 'int32u' },
-    tsro => { Name => 'TimestampRandomOffset',      Format => 'int32u' },
-    snro => { Name => 'SequenceNumberRandomOffset', Format => 'int32u' },
-);
-
-# MP4 metadata sample description box
-%Image::ExifTool::QuickTime::MetaSampleDesc = (
-    PROCESS_PROC => \&ProcessHybrid,
-    NOTES => 'MP4 metadata sample description.',
-    4 => {
-        Name => 'MetaFormat',
-        Format => 'undef[4]',
-        RawConv => '$$self{MetaFormat} = $val',
-    },
-    8 => { # starts at 8 for MetaFormat eq 'camm', and 17 for 'mett'
-        Name => 'MetaType',
-        Format => 'undef[$size-8]',
-        # may start at various locations!
-        RawConv => '$$self{MetaType} = ($val=~/(application[^\0]+)/ ? $1 : undef)',
-    },
-#
-# Observed offsets for child atoms of various MetaFormat types:
-#
-#   MetaFormat   Offset  Child atoms
-#   -----------  ------  ----------------
-#   mebx         24      keys,btrt,lidp,lidl
-#   fdsc         -       -
-#   gpmd         -       -
-#   rtmd         -       -
-#   CTMD         -       -
-#
-   'keys' => { #PH (iPhone7+ hevc)
-        Name => 'Keys',
-        SubDirectory => {
-            TagTable => 'Image::ExifTool::QuickTime::Keys',
-            ProcessProc => \&ProcessMetaKeys,
-        },
-    },
-    btrt => {
-        Name => 'BitrateInfo',
-        SubDirectory => { TagTable => 'Image::ExifTool::QuickTime::Bitrate' },
-    },
-);
-
-# MP4 generic sample description box
-%Image::ExifTool::QuickTime::OtherSampleDesc = (
-    PROCESS_PROC => \&ProcessHybrid,
-    4 => {
-        Name => 'OtherFormat',
-        Format => 'undef[4]',
-        RawConv => '$$self{MetaFormat} = $val', # (yes, use MetaFormat for this too)
-    },
-    24 => {
-        Condition => '$$self{MetaFormat} eq "tmcd"',
-        Name => 'PlaybackFrameRate', # (may differ from recorded FrameRate eg. ../pics/FujiFilmX-H1.mov)
-        Format => 'rational64u',
-    },
-#
-# Observed offsets for child atoms of various OtherFormat types:
-#
-#   OtherFormat  Offset  Child atoms
-#   -----------  ------  ----------------
-#   avc1         86      avcC
-#   mp4a         36      esds
-#   mp4s         16      esds
-#   tmcd         34      name
-#   data         -       -
-#
-    ftab => { Name => 'FontTable',  Format => 'undef', ValueConv => 'substr($val, 5)' },
-    name => { Name => 'OtherName',  Format => 'undef', ValueConv => 'substr($val, 4)' },
-    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' } },
-);
-
 # MP4 data information box (ref 5)
 %Image::ExifTool::QuickTime::DataInfo = (
     PROCESS_PROC => \&ProcessMOV,
@@ -9856,6 +9860,7 @@ sub ProcessMOV($$;$)
             $size -= 8;
         }
         if ($validate) {
+            $et->Warn("Invalid 'wide' atom size") if $tag eq 'wide' and $size;
             $$et{ValidatePath} or $$et{ValidatePath} = { };
             my $path = join('-', @{$$et{PATH}}, $tag);
             $path =~ s/-Track-/-$$et{SET_GROUP1}-/ if $$et{SET_GROUP1};

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

@@ -1002,6 +1002,10 @@ my %formatMinMax = (
     '0x0a20-name' => 'DualCameraImageName', # ("FlipPhoto_002")
     '0x0a20' => { Name => 'DualCameraImage', Groups => { 2 => 'Preview' }, Binary => 1 },
     '0x0a30-name' => 'EmbeddedVideoType', # ("MotionPhoto_Data")
+    # Note: A duplicate of this video may be extracted as MotionPhotoVideo from
+    #       the Google trailer, but keep this copy named as EmbeddedVideoFile
+    #       for backward compatibility and to avoid confusion due to extracting
+    #       multiple tags with the same name
     '0x0a30' => { Name => 'EmbeddedVideoFile', Groups => { 2 => 'Video' }, Binary => 1 }, #forum7161
    # 0x0a41-name - seen 'BackupRestore_Data' #forum16086
    # 0x0aa1-name - seen 'MCC_Data'

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

@@ -1719,7 +1719,7 @@ my %hidUnk = ( Hidden => 1, Unknown => 1 );
         },
     },{
         Name => 'Tag9050c',
-        Condition => '$$self{Model} =~ /^(ILCE-(1|7M4|7RM5|7SM3)|ILME-FX3)/',
+        Condition => '$$self{Model} =~ /^(ILCE-(1\b|7M4|7RM5|7SM3)|ILME-FX3)/',
         SubDirectory => {
             TagTable => 'Image::ExifTool::Sony::Tag9050c',
             ByteOrder => 'LittleEndian',