exiftool-vendored.pl 12.73.0 → 12.78.0

package/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 = '2.91';
+$VERSION = '2.94';
 
 sub ProcessMOV($$;$);
 sub ProcessKeys($$$);
@@ -58,11 +58,14 @@ sub ProcessEncodingParams($$$);
 sub ProcessSampleDesc($$$);
 sub ProcessHybrid($$$);
 sub ProcessRights($$$);
+sub ProcessNextbase($$$);
 # ++vvvvvvvvvvvv++ (in QuickTimeStream.pl)
 sub Process_mebx($$$);
 sub Process_3gf($$$);
 sub Process_gps0($$$);
 sub Process_gsen($$$);
+sub Process_gdat($$$);
+sub Process_nbmt($$$);
 sub ProcessKenwood($$$);
 sub ProcessLIGO_JSON($$$);
 sub ProcessRIFFTrailer($$$);
@@ -88,6 +91,7 @@ sub UnpackLang($;$);
 sub WriteKeys($$$);
 sub WriteQuickTime($$$);
 sub WriteMOV($$);
+sub WriteNextbase($$$);
 sub GetLangInfo($$);
 sub CheckQTValue($$$);
 
@@ -268,6 +272,24 @@ my %timeInfo = (
     PrintConvInv => '$self->InverseDateTime($val)',
     # (can't put Groups here because they aren't constant!)
 );
+# properties for ISO 8601 format date/time tags
+my %iso8601Date = (
+    Shift => 'Time',
+    ValueConv => q{
+        require Image::ExifTool::XMP;
+        $val =  Image::ExifTool::XMP::ConvertXMPDate($val);
+        $val =~ s/([-+]\d{2})(\d{2})$/$1:$2/; # add colon to timezone if necessary
+        return $val;
+    },
+    ValueConvInv => q{
+        require Image::ExifTool::XMP;
+        my $tmp = Image::ExifTool::XMP::FormatXMPDate($val);
+        ($val = $tmp) =~ s/([-+]\d{2}):(\d{2})$/$1$2/ if defined $tmp; # remove time zone colon
+        return $val;
+    },
+    PrintConv => '$self->ConvertDateTime($val)',
+    PrintConvInv => '$self->InverseDateTime($val,1)', # (add time zone if it didn't exist)
+);
 # information for duration tags
 my %durationInfo = (
     ValueConv => '$$self{TimeScale} ? $val / $$self{TimeScale} : $val',
@@ -638,6 +660,14 @@ my %isImageData = ( av01 => 1, avc1 => 1, hvc1 => 1, lhv1 => 1, hvt1 => 1 );
             Name => 'SensorData', # sensor data for the 360Fly
             Condition => '$$valPt=~/^\xef\xe1\x58\x9a\xbb\x77\x49\xef\x80\x95\x27\x75\x9e\xb1\xdc\x6f/ and $$self{OPTIONS}{ExtractEmbedded}',
             SubDirectory => { TagTable => 'Image::ExifTool::QuickTime::Tags360Fly' },
+        },{
+            Name => 'SensorData',
+            Condition => '$$valPt=~/^\xef\xe1\x58\x9a\xbb\x77\x49\xef\x80\x95\x27\x75\x9e\xb1\xdc\x6f/',
+            Notes => 'raw 360Fly sensor data without ExtractEmbedded option',
+            RawConv => q{
+                $self->WarnOnce('Use the ExtractEmbedded option to decode timed SensorData',3);
+                return \$val;
+            },
         },
         { #https://c2pa.org/specifications/
             Name => 'JUMBF',
@@ -645,6 +675,7 @@ my %isImageData = ( av01 => 1, avc1 => 1, hvc1 => 1, lhv1 => 1, hvt1 => 1 );
             Deletable => 1,
             SubDirectory => {
                 TagTable => 'Image::ExifTool::Jpeg2000::Main',
+                DirName => 'JUMBF',
                 # 16 bytes uuid
                 # +4 bytes 0
                 # +9 bytes "manifest\0"
@@ -666,18 +697,9 @@ my %isImageData = ( av01 => 1, avc1 => 1, hvc1 => 1, lhv1 => 1, hvt1 => 1 );
                 Start => 27,
             },
         },
-        {
-            Name => 'SensorData',
-            Condition => '$$valPt=~/^\xef\xe1\x58\x9a\xbb\x77\x49\xef\x80\x95\x27\x75\x9e\xb1\xdc\x6f/',
-            Notes => 'raw 360Fly sensor data without ExtractEmbedded option',
-            RawConv => q{
-                $self->WarnOnce('Use the ExtractEmbedded option to decode timed SensorData',3);
-                return \$val;
-            },
-        },
         { #PH (Canon CR3)
             Name => 'PreviewImage',
-            Condition => '$$valPt=~/^\xea\xf4\x2b\x5e\x1c\x98\x4b\x88\xb9\xfb\xb7\xdc\x40\x6e\x4d\x16/',
+            Condition => '$$valPt=~/^\xea\xf4\x2b\x5e\x1c\x98\x4b\x88\xb9\xfb\xb7\xdc\x40\x6e\x4d\x16.{32}/s',
             Groups => { 2 => 'Preview' },
             PreservePadding => 1,
             # 0x00 - undef[16]: UUID
@@ -692,6 +714,25 @@ my %isImageData = ( av01 => 1, avc1 => 1, hvc1 => 1, lhv1 => 1, hvt1 => 1 );
             # 0x3c - int32u: preview length
             RawConv => '$val = substr($val, 0x30); $self->ValidateImage(\$val, $tag)',
         },
+        { #PH (Garmin MP4)
+            Name => 'ThumbnailImage',
+            Condition => '$$valPt=~/^\x11\x6e\x40\xdc\xb1\x86\x46\xe4\x84\x7c\xd9\xc0\xc3\x49\x10\x81.{8}\xff\xd8\xff/s',
+            Groups => { 2 => 'Preview' },
+            Binary => 1,
+            # 0x00 - undef[16]: UUID
+            # 0x10 - int32u[2]: ThumbnailLength
+            # 0x14 - int16u[2]: width/height of image (160/120)
+            RawConv => q{
+                my $len = Get32u(\$val, 0x10);
+                return undef unless length($val) >= $len + 0x18;
+                return substr($val, 0x18, $len);
+            },
+        },
+        # also seen 120-byte record in Garmin MP4's, starting like this (model name at byte 9):
+        # 0000: 47 52 4d 4e 00 00 00 01 00 44 43 35 37 00 00 00 [GRMN.....DC57...]
+        # 0000: 47 52 4d 4e 00 00 00 01 00 44 43 36 36 57 00 00 [GRMN.....DC66W..]
+        # and this in Garmin, followed by 8 bytes of 0's:
+        # 0000: db 11 98 3d 8f 65 43 8c bb b8 e1 ac 56 fe 6b 04
         { #8
             Name => 'UUID-Unknown',
             %unknownInfo,
@@ -816,6 +857,20 @@ my %isImageData = ( av01 => 1, avc1 => 1, hvc1 => 1, lhv1 => 1, hvt1 => 1 );
     },
     # gpsa - seen hex "01 20 00 00" (DuDuBell M1, VSYS M6L)
     # gsea - 20 bytes hex "05 00's..." (DuDuBell M1) "05 08 02 01 ..." (VSYS M6L)
+    gdat => {   # Base64-encoded JSON-format timed GPS (Nextbase software)
+        Name => 'GPSData',
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::QuickTime::Stream',
+            ProcessProc => \&Process_gdat,
+        },
+    },
+    nbmt => { # (Nextbase)
+        Name => 'NextbaseMeta',
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::QuickTime::Stream',
+            ProcessProc => \&Process_nbmt,
+        },
+    },
    'GPS ' => {  # GPS data written by 70mai dashcam (parsed in QuickTimeStream.pl)
         Name => 'GPSDataList2',
         Unknown => 1,
@@ -1574,22 +1629,7 @@ my %isImageData = ( av01 => 1, avc1 => 1, hvc1 => 1, lhv1 => 1, hvt1 => 1 );
     "\xa9day" => {
         Name => 'ContentCreateDate',
         Groups => { 2 => 'Time' },
-        Shift => 'Time',
-        # handle values in the form "2010-02-12T13:27:14-0800" (written by Apple iPhone)
-        ValueConv => q{
-            require Image::ExifTool::XMP;
-            $val =  Image::ExifTool::XMP::ConvertXMPDate($val);
-            $val =~ s/([-+]\d{2})(\d{2})$/$1:$2/; # add colon to timezone if necessary
-            return $val;
-        },
-        ValueConvInv => q{
-            require Image::ExifTool::XMP;
-            my $tmp = Image::ExifTool::XMP::FormatXMPDate($val);
-            ($val = $tmp) =~ s/([-+]\d{2}):(\d{2})$/$1$2/ if defined $tmp; # remove time zone colon
-            return $val;
-        },
-        PrintConv => '$self->ConvertDateTime($val)',
-        PrintConvInv => '$self->InverseDateTime($val,1)', # (add time zone if it didn't exist)
+        %iso8601Date,
     },
     "\xa9ART" => 'Artist', #PH (iTunes 8.0.2)
     "\xa9alb" => 'Album', #PH (iTunes 8.0.2)
@@ -1873,21 +1913,7 @@ my %isImageData = ( av01 => 1, avc1 => 1, hvc1 => 1, lhv1 => 1, hvt1 => 1 );
             Apple Photos has been reported to show a crazy date/time for some MP4 files
             containing this tag, but perhaps only if it is missing a time zone
         }, #forum10690/11125
-        Shift => 'Time',
-        ValueConv => q{
-            require Image::ExifTool::XMP;
-            $val =  Image::ExifTool::XMP::ConvertXMPDate($val);
-            $val =~ s/([-+]\d{2})(\d{2})$/$1:$2/; # add colon to timezone if necessary
-            return $val;
-        },
-        ValueConvInv => q{
-            require Image::ExifTool::XMP;
-            $val =  Image::ExifTool::XMP::FormatXMPDate($val);
-            $val =~ s/([-+]\d{2}):(\d{2})$/$1$2/; # remove time zone colon
-            return $val;
-        },
-        PrintConv => '$self->ConvertDateTime($val)',
-        PrintConvInv => '$self->InverseDateTime($val,1)', # (add time zone if it didn't exist)
+        %iso8601Date,
     },
     manu => { # (SX280)
         Name => 'Make',
@@ -2100,8 +2126,21 @@ my %isImageData = ( av01 => 1, avc1 => 1, hvc1 => 1, lhv1 => 1, hvt1 => 1 );
         Condition => '$$valPt =~ /^VIRBactioncamera/',
         RawConv => 'substr($val, 16)',
         RawConvInv => '"VIRBactioncamera$val"',
+    },{
+        Name => 'GarminModel', # (NC)
+        Condition => '$$valPt =~ /^\xf7\x6c\xd7\x6a\x07\x5b\x4a\x1e\xb3\x1c\x0e\x7f\xab\x7e\x09\xd4/',
+        Writable => 0,
+        RawConv => q{
+            return undef unless length($val) > 25;
+            my $len = unpack('x24C', $val);
+            return undef unless length($val) >= 25 + $len;
+            return substr($val, 25, $len);
+        },
     },{
         # have seen "28 f3 11 e2 b7 91 4f 6f 94 e2 4f 5d ea cb 3c 01" for RicohThetaZ1 accelerometer RADT data (not yet decoded)
+        # also seen in Garmin MP4:
+        # 51 0b 63 46 6c fd 4a 17 87 42 ea c9 ea ae b3 bd - seems to contain a duplicate of the trak atom
+        # b3 e8 21 f4 fe 33 4e 10 8f 92 f5 e1 d4 36 c9 8a - 8 bytes of zeros
         Name => 'UUID-Unknown',
         Writable => 0,
         %unknownInfo,
@@ -2310,23 +2349,9 @@ my %isImageData = ( av01 => 1, avc1 => 1, hvc1 => 1, lhv1 => 1, hvt1 => 1 );
             symbol in these tag ID's for the Ricoh Theta Z1 and maybe other models
         },
         Groups => { 2 => 'Time' },
-        Shift => 'Time',
         Avoid => 1,
         # handle values in the form "2010-02-12T13:27:14-0800"
-        ValueConv => q{
-            require Image::ExifTool::XMP;
-            $val =  Image::ExifTool::XMP::ConvertXMPDate($val);
-            $val =~ s/([-+]\d{2})(\d{2})$/$1:$2/; # add colon to timezone if necessary
-            return $val;
-        },
-        ValueConvInv => q{
-            require Image::ExifTool::XMP;
-            my $tmp = Image::ExifTool::XMP::FormatXMPDate($val);
-            ($val = $tmp) =~ s/([-+]\d{2}):(\d{2})$/$1$2/ if defined $tmp; # remove time zone colon
-            return $val;
-        },
-        PrintConv => '$self->ConvertDateTime($val)',
-        PrintConvInv => '$self->InverseDateTime($val,1)', # (add time zone if it didn't exist)
+        %iso8601Date,
     },
     '@xyz' => { #PH (iPhone 3GS)
         Name => 'GPSCoordinates',
@@ -2423,6 +2448,30 @@ my %isImageData = ( av01 => 1, avc1 => 1, hvc1 => 1, lhv1 => 1, hvt1 => 1 );
         Groups => { 2 => 'Preview' },
         Binary => 1,
     },
+    # ---- Nextbase ----
+    info => 'FirmwareVersion',
+   'time' => {
+        Name => 'TimeStamp',
+        Format => 'int32u', # (followed by 4 unknown bytes 00 0d 00 00)
+        Writable => 0,
+        Groups => { 2 => 'Time' },
+        ValueConv => '$val =~ s/ .*//; ConvertUnixTime($val)',
+        PrintConv => '$self->ConvertDateTime($val)',
+    },
+    infi => {
+        Name => 'CameraInfo',
+        SubDirectory => { TagTable => 'Image::ExifTool::QuickTime::Nextbase' },
+    },
+    finm => {
+        Name => 'OriginalFileName',
+        Writable => 0,
+    },
+    # AMBA ? - (133 bytes)
+    # nbpl ? - "FP-433-KC"
+    nbpl => { Name => 'Unknown_nbpl', Unknown => 1, Hidden => 1 },
+    # maca ? - b8 2d 28 15 f1 48
+    # sern ? - 0d 69 42 74
+    # nbid ? - 0d 69 42 74 65 df 72 65 03 de c0 fb 01 01 00 00
     # ---- Unknown ----
     # CDET - 128 bytes (unknown origin)
     # mtyp - 4 bytes all zero (some drone video)
@@ -3339,22 +3388,7 @@ my %isImageData = ( av01 => 1, avc1 => 1, hvc1 => 1, lhv1 => 1, hvt1 => 1 );
     "\xa9day" => {
         Name => 'ContentCreateDate',
         Groups => { 2 => 'Time' },
-        Shift => 'Time',
-        # handle values in the form "2010-02-12T13:27:14-0800"
-        ValueConv => q{
-            require Image::ExifTool::XMP;
-            $val =  Image::ExifTool::XMP::ConvertXMPDate($val);
-            $val =~ s/([-+]\d{2})(\d{2})$/$1:$2/; # add colon to timezone if necessary
-            return $val;
-        },
-        ValueConvInv => q{
-            require Image::ExifTool::XMP;
-            $val =  Image::ExifTool::XMP::FormatXMPDate($val);
-            $val =~ s/([-+]\d{2}):(\d{2})$/$1$2/; # remove time zone colon
-            return $val;
-        },
-        PrintConv => '$self->ConvertDateTime($val)',
-        PrintConvInv => '$self->InverseDateTime($val,1)', # (add time zone if it didn't exist)
+        %iso8601Date,
     },
     "\xa9des" => 'Description', #4
     "\xa9enc" => 'EncodedBy', #10
@@ -6403,12 +6437,10 @@ my %isImageData = ( av01 => 1, avc1 => 1, hvc1 => 1, lhv1 => 1, hvt1 => 1 );
         ValueConvInv => '$val * 1000',
         PrintConv => 'ConvertDuration($val)',
         PrintConvInv => q{
-           $val =~ s/ s$//;
-           my @a = split /(:| days )/, $val;
-           my $sign = ($val =~ s/^-//) ? -1 : 1;
-           $a[0] += shift(@a) * 24 if @a == 4;
-           $a[0] += shift(@a) * 60 while @a > 1;
-           return $a[0] * $sign;
+            my $sign = ($val =~ s/^-//) ? -1 : 1;
+            my @a = $val =~ /(\d+(?:\.\d+)?)/g;
+            unshift @a, 0 while @a < 4;
+            return $sign * (((($a[0] * 24) + $a[1]) * 60 + $a[2]) * 60 + $a[3]);
         },
     },
 
@@ -6522,21 +6554,7 @@ my %isImageData = ( av01 => 1, avc1 => 1, hvc1 => 1, lhv1 => 1, hvt1 => 1 );
     creationdate=> {
         Name => 'CreationDate',
         Groups => { 2 => 'Time' },
-        Shift => 'Time',
-        ValueConv => q{
-            require Image::ExifTool::XMP;
-            $val =  Image::ExifTool::XMP::ConvertXMPDate($val,1);
-            $val =~ s/([-+]\d{2})(\d{2})$/$1:$2/; # add colon to timezone if necessary
-            return $val;
-        },
-        ValueConvInv => q{
-            require Image::ExifTool::XMP;
-            $val =  Image::ExifTool::XMP::FormatXMPDate($val);
-            $val =~ s/([-+]\d{2}):(\d{2})$/$1$2/; # remove time zone colon
-            return $val;
-        },
-        PrintConv => '$self->ConvertDateTime($val)',
-        PrintConvInv => '$self->InverseDateTime($val,1)', # (add time zone if it didn't exist)
+        %iso8601Date,
     },
     description => { },
     director    => { },
@@ -6586,21 +6604,7 @@ my %isImageData = ( av01 => 1, avc1 => 1, hvc1 => 1, lhv1 => 1, hvt1 => 1 );
     'location.date' => {
         Name => 'LocationDate',
         Groups => { 2 => 'Time' },
-        Shift => 'Time',
-        ValueConv => q{
-            require Image::ExifTool::XMP;
-            $val =  Image::ExifTool::XMP::ConvertXMPDate($val);
-            $val =~ s/([-+]\d{2})(\d{2})$/$1:$2/; # add colon to timezone if necessary
-            return $val;
-        },
-        ValueConvInv => q{
-            require Image::ExifTool::XMP;
-            $val =  Image::ExifTool::XMP::FormatXMPDate($val);
-            $val =~ s/([-+]\d{2}):(\d{2})$/$1$2/; # remove time zone colon
-            return $val;
-        },
-        PrintConv => '$self->ConvertDateTime($val)',
-        PrintConvInv => '$self->InverseDateTime($val,1)', # (add time zone if it didn't exist)
+        %iso8601Date,
     },
     'location.accuracy.horizontal' => { Name => 'LocationAccuracyHorizontal' },
     'live-photo.auto'           => { Name => 'LivePhotoAuto', Writable => 'int8u' },
@@ -6693,6 +6697,16 @@ my %isImageData = ( av01 => 1, avc1 => 1, hvc1 => 1, lhv1 => 1, hvt1 => 1 );
     'detected-face.roll-angle' => { Name => 'DetectedFaceRollAngle', Writable => 0 },
     # (fiel)com.apple.quicktime.detected-face.yaw-angle (dtyp=23, float)
     'detected-face.yaw-angle'  => { Name => 'DetectedFaceYawAngle',  Writable => 0 },
+    # the following tags generated by ShutterEncoder when "preserve metadata" is selected (forum15610)
+    major_brand       => { Name => 'MajorBrand',       Avoid => 1 },
+    minor_version     => { Name => 'MinorVersion',     Avoid => 1 },
+    compatible_brands => { Name => 'CompatibleBrands', Avoid => 1 },
+    creation_time => {
+        Name => 'CreationTime',
+        Groups => { 2 => 'Time' },
+        Avoid => 1,
+        %iso8601Date,
+    },
 #
 # seen in Apple ProRes RAW file
 #
@@ -6708,13 +6722,6 @@ my %isImageData = ( av01 => 1, avc1 => 1, hvc1 => 1, lhv1 => 1, hvt1 => 1 );
     # (mdta)com.apple.proapps.image.{TIFF}.Make (eg. "Atmos")
     # (mdta)com.apple.proapps.image.{TIFF}.Model (eg. "ShogunInferno")
     # (mdta)com.apple.proapps.image.{TIFF}.Software (eg. "9.0")
-#
-# also seen (but don't yet add support for these)
-#
-    # (mdta)major_brand
-    # (mdta)minor_version
-    # (mdta)compatible_brands
-    # (mdta)creation_time
 );
 
 # iTunes info ('----') atoms
@@ -8153,6 +8160,88 @@ my %isImageData = ( av01 => 1, avc1 => 1, hvc1 => 1, lhv1 => 1, hvt1 => 1 );
     },
 );
 
+# Nextbase tags (ref PH)
+%Image::ExifTool::QuickTime::Nextbase = (
+    GROUPS => { 1 => 'Nextbase', 2 => 'Camera' },
+    PROCESS_PROC => \&ProcessNextbase,
+    WRITE_PROC => \&WriteNextbase,
+    VARS => { LONG_TAGS => 3 },
+    NOTES => q{
+        Tags found in 'infi' atom from some Nextbase videos.  As well as these tags,
+        other existing tags are also extracted.  These tags are not currently
+        writable but they may all be removed by deleting the Nextbase group.
+    },
+   'Wi-Fi SSID' => { },
+   'Wi-Fi Password' => { },
+   'Wi-Fi MAC Address' => { },
+   'Model' => { },
+   'Firmware' => { },
+   'Serial No' => { Name => 'SerialNumber' },
+   'FCC-ID' => { },
+   'Battery Status' => { },
+   'SD Card Manf ID' => { },
+   'SD Card OEM ID' => { },
+   'SD Card Model No' => { },
+   'SD Card Serial No' => { },
+   'SD Card Manf Date' => { },
+   'SD Card Type' => { },
+   'SD Card Used Space' => { },
+   'SD Card Class' => { },
+   'SD Card Size' => { },
+   'SD Card Format' => { },
+   'Wi-Fi SSID' => { },
+   'Wi-Fi Password' => { },
+   'Wi-Fi MAC Address' => { },
+   'Bluetooth Name' => { },
+   'Bluetooth MAC Address' => { },
+   'Resolution' => { },
+   'Exposure' => { },
+   'Video Length' => { },
+   'Audio' => { },
+   'Time Stamp' => { Name => 'VideoTimeStamp' },
+   'Speed Stamp' => { },
+   'GPS Stamp' => { },
+   'Model Stamp' => { },
+   'Dual Files' => { },
+   'Time Lapse' => { },
+   'Number / License Plate' => { },
+   'G Sensor' => { },
+   'Image Stabilisation' => { },
+   'Extreme Weather Mode' => { },
+   'Screen Saver' => { },
+   'Alerts' => { },
+   'Recording History' => { },
+   'Parking Mode' => { },
+   'Language' => { },
+   'Country' => { },
+   'Time Zone / DST' => { Groups => { 2 => 'Time' } },
+   'Time & Date' => { Name => 'TimeAndDate', Groups => { 2 => 'Time' } },
+   'Speed Units' => { },
+   'Device Sounds' => { },
+   'Screen Dimming' => { },
+   'Auto Power Off' => { },
+   'Keep User Settings' => { },
+   'System Info' => { },
+   'Format SD Card' => { },
+   'Default Settings' => { },
+   'Emergency SOS' => { },
+   'Reversing Camera' => { },
+   'what3words' => { Name => 'What3Words' },
+   'MyNextbase - Pairing' => { },
+   'MyNextbase - Paired Device Name' => { },
+   'Alexa' => { },
+   'Alexa - Pairing' => { },
+   'Alexa - Paired Device Name' => { },
+   'Alexa - Privacy Mode' => { },
+   'Alexa - Wake Word Language' => { },
+   'Firmware Version' => { },
+   'RTOS' => { },
+   'Linux' => { },
+   'NBCD' => { },
+   'Alexa' => { },
+   '2nd Cam' => { Name => 'SecondCam' },
+);
+
 # QuickTime composite tags
 %Image::ExifTool::QuickTime::Composite = (
     GROUPS => { 2 => 'Video' },
@@ -9215,6 +9304,23 @@ sub ProcessRights($$$)
     return 1;
 }
 
+#------------------------------------------------------------------------------
+# Process Nextbase 'infi' atom (ref PH)
+# Inputs: 0) ExifTool object ref, 1) dirInfo ref, 2) tag table ref
+# Returns: 1 on success
+sub ProcessNextbase($$$)
+{
+    my ($et, $dirInfo, $tagTbl) = @_;
+    my $dataPt = $$dirInfo{DataPt};
+    $et->VerboseDir('Nextbase', undef, length($$dataPt));
+    while ($$dataPt =~ /(.*?): +(.*)\x0d/g) {
+        my ($id, $val) = ($1, $2);
+        $$tagTbl{$id} or AddTagToTable($tagTbl, $id, { Name => Image::ExifTool::MakeTagName($id) });
+        $et->HandleTag($tagTbl, $id, $val, Size => length($val));
+    }
+    return 1;
+}
+
 #------------------------------------------------------------------------------
 # Process iTunes Encoding Params (ref PH)
 # Inputs: 0) ExifTool object ref, 1) dirInfo ref, 2) tag table ref
@@ -9373,7 +9479,7 @@ sub ProcessMOV($$;$)
     }
     # more convenient to package data as a RandomAccess file
     unless ($raf) {
-        $raf = new File::RandomAccess($dataPt);
+        $raf = File::RandomAccess->new($dataPt);
         $dirEnd = $dataPos + $$dirInfo{DirLen} + ($$dirInfo{DirStart} || 0) if $$dirInfo{DirLen};
     }
     # skip leading bytes if necessary