exiftool_vendored 13.50.0 → 13.53.0

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 119da28d5499012533651a09438cf1c0b551bb65e4b97815bc86190c7b439beb
-  data.tar.gz: 11292b43f6d89879e7eef760270799f803ec5bc15cdcaf8eb9c57fdeb7d9f9cc
+  metadata.gz: c653bfd291b7881243e271beba3bdcf6af6343647b7736ea5750a8b6427c6ba2
+  data.tar.gz: 550046af23b550283317d05a7d3387d2e977efd2d3c74af0285808f8035c7756
 SHA512:
-  metadata.gz: 36b76bee5489e79558b03b5eabf21f0e59d9d60c4702818468f82dd50141f652caa8395a791d117d502d3e7aff95d6ceb139e741fa5351c0cf5925936331d45b
-  data.tar.gz: 39b786e84e02df42bc8021b97084fa899810a4b8207e5bb91fc92dc990e4768efb1600bfc83497f7ae0d1db2cab02677633e054cc23fe693e30490778dd09f23
+  metadata.gz: a2dabd27da939c74ff1300eaea01b3597c994d9fe456bb2d386f6d5eba0f6fb682c8c154ac3ad833e8fd7e63f421b01f3c5c0b307989cb8e030284f2a5c0bf13
+  data.tar.gz: eb1cff971653f098e366a793786e43caa79a378134287935afd997f5dad37212f9bb6bf7b64523c85c4774e53fcd84379dc34b1016fa428f6d158011f0b69f5b

data/bin/Changes

@@ -7,6 +7,49 @@ RSS feed: https://exiftool.org/rss.xml
 Note: The most recent production release is Version 13.50. (Other versions are
 considered development releases, and are not uploaded to MetaCPAN.)
 
+Mar. 19, 2026 - Version 13.53
+
+  - Added ability to read FileCreateDate (btime) on Linux systems
+  - Added a bunch more Sony lenses (thanks Jos Roost)
+  - Added warnings for possibly malicious or corrupted LNK files (github #401)
+  - Decode timed GPS from Kenwood DRV-A510W MP4 videos
+  - Decode more information from LNK files
+  - Reduced memory requirements when running on a large number of files,
+    particularly when the -U option is used
+  - Patched a potential security issue in Windows version
+  - Fixed possible "undefined value" runtime warnings when reading torrent and
+    WPG files (thanks Raf)
+  - Fixed issue which could result in an "uninitialized value" runtime error
+    when parsing corrupted CBOR information
+
+Feb. 27, 2026 - Version 13.52
+
+  - Added a number of new XMP tags written by Adobe software
+  - Added UTF-16 support for a few different metadata types in which only UCS-2
+    was previously implemented (github #396)
+  - Added a few more Canon FlashModel values and decode FlashModel for the
+    5DmkII (thanks Peter Wem, github #390)
+  - Added a new Canon LensType (github #395)
+  - Added some missing file attribute bits to two of the new LNK tags
+  - Decode internal serial number for the 5DmkII (thanks Peter Wem, github #398)
+  - Decode another OwnerName for the 5DmkII (thanks Peter Wem, github #397)
+  - Decode some timed GPS for a couple of new DJI drones
+  - Enable WindowsLongPath by default only if Win32::API is available
+  - Renamed the Pentax K3III AFInfo tag to AFInfoK3III
+
+Feb. 19, 2026 - Version 13.51
+
+  - Added a new Nikon LensID (thanks Johan)
+  - Decode more tags from Windows LNK files
+  - Decode another LIGOGPSINFO variant (github #394)
+  - Decode some new Canon tags (thanks Peter Wem, github #389, #390, #393)
+  - Decode some new Nikon tags
+  - Split decoding on Nikon BurstGroupID into separate tags
+  - Fixed round-off error in GPSDateTime seconds for camm6 metadata in MP4
+    videos introduced in 13.45
+  - Fixed bug generating the default-language version of
+    QuickTime:LocationInformation (github #391)
+
 Feb. 7, 2026 - Version 13.50 (production release)
 
   - Added a few new Sony lenses (thanks Jos Roost)

data/bin/META.json

@@ -50,6 +50,6 @@
       }
    },
    "release_status" : "stable",
-   "version" : "13.50",
+   "version" : "13.53",
    "x_serialization_backend" : "JSON::PP version 4.06"
 }

data/bin/META.yml

@@ -31,5 +31,5 @@ recommends:
   Time::HiRes: '0'
 requires:
   perl: '5.004'
-version: '13.50'
+version: '13.53'
 x_serialization_backend: 'CPAN::Meta::YAML version 0.018'

data/bin/README

@@ -111,8 +111,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.50.tar.gz | tar -xf -
-  cd Image-ExifTool-13.50
+  gzip -dc Image-ExifTool-13.53.tar.gz | tar -xf -
+  cd Image-ExifTool-13.53
   ./exiftool t/images/ExifTool.jpg
 
 Note:  These commands extract meta information from one of the test images. 
@@ -158,10 +158,11 @@ for calculating digest values and providing other features listed below:
   POSIX::strptime      (for inverse date/time conversion)
   Time::Piece          (alternative to POSIX::strptime)
   Unicode::LineBreak   (for column alignment of alternate-language output)
-  Win32::API           (for proper handling of Windows file times)
+  Win32::API           (for proper handling of Windows file names/times)
   Win32::FindFile      (for Windows Unicode directory support, app only)
   Win32API::File       (for Windows Unicode file names and file times)
   Compress::Raw::Lzma  (for reading encoded 7z files)
+  File::StatX          (for reading FileCreateDate on Linux systems)
   IO::Compress::RawDeflate   (for writing FLIF images)
   IO::Uncompress::RawInflate (for reading FLIF images)
   IO::Compress::Brotli       (for writing compressed JXL metadata)

data/bin/exiftool

@@ -11,7 +11,7 @@ use strict;
 use warnings;
 require 5.004;
 
-my $version = '13.50';
+my $version = '13.53';
 
 $^W = 1;    # enable global warnings
 
@@ -202,6 +202,7 @@ my $progressIncr;   # increment for progress counter
 my $progressMax;    # total number of files to process
 my $progressNext;   # next progress count to output
 my $progStr;        # progress message string
+my $purge;          # flag to purge memory
 my $quiet;          # flag to disable printing of informational messages / warnings
 my $rafStdin;       # File::RandomAccess for stdin (if necessary to rewind)
 my $recurse;        # recurse into subdirectories (2=also hidden directories)
@@ -309,6 +310,7 @@ my @recommends = qw(
     Time::Local
     Unicode::LineBreak
     Compress::Raw::Lzma
+    File::StatX
     IO::Compress::RawDeflate
     IO::Uncompress::RawInflate
     IO::Compress::Brotli
@@ -521,6 +523,7 @@ undef $progressCount;
 undef $progressIncr;
 undef $progressMax;
 undef $progressNext;
+undef $purge;
 undef $rafStdin;
 undef $recurse;
 undef $scanWritable;
@@ -791,6 +794,7 @@ for (;;) {
             print "Optional libraries:\n";
             foreach (@recommends) {
                 next if /^Win32/ and $^O ne 'MSWin32';
+                next if /StatX/ and $^O ne 'linux';
                 my $ver = eval "require $_ and \$${_}::VERSION";
                 my $alt = $altRecommends{$_};
                 # check for alternative if primary not available
@@ -1172,9 +1176,9 @@ for (;;) {
         $vout = \*STDERR if $vout =~ /^-(\.\w+)?$/;
         next;
     }
-    /^overwrite_original$/i and $overwriteOrig = 1, next;
-    /^overwrite_original_in_place$/i and $overwriteOrig = 2, next;
-    /^plot$/i and require Image::ExifTool::Plot and $plot = Image::ExifTool::Plot->new, next;
+    $a eq 'overwrite_original' and $overwriteOrig = 1, next;
+    $a eq 'overwrite_original_in_place' and $overwriteOrig = 2, next;
+    $a eq 'plot' and require Image::ExifTool::Plot and $plot = Image::ExifTool::Plot->new, next;
     if (/^p(-?)$/ or /^printformat(-?)$/i) {
         my $fmt = shift;
         if ($pass) {
@@ -1192,7 +1196,7 @@ for (;;) {
         next;
     }
     (/^P$/ or $a eq 'preserve') and $preserveTime = 1, next;
-    /^password$/i and $mt->Options(Password => shift), next;
+    $a eq 'password' and $mt->Options(Password => shift), next;
     if (/^progress(\d*)(:.*)?$/i) {
         $progressIncr = $1 || 1;
         $progressNext = 0; # start showing progress at the first file
@@ -1207,6 +1211,7 @@ for (;;) {
         $progressCount = 0;
         next;
     }
+    /^purge(\d*)$/i and $purge = $1||1, Image::ExifTool::Purge($purge), next; # (undocumented) added in 13.53
     /^q(uiet)?$/i and ++$quiet, next;
     /^r(ecurse)?(\.?)$/i and $recurse = ($2 ? 2 : 1), next;
     if ($a eq 'require') { # (undocumented) added in version 8.65
@@ -1222,10 +1227,10 @@ for (;;) {
         }
         next;
     }
-    /^restore_original$/i and $deleteOrig = 0, next;
+    $a eq 'restore_original' and $deleteOrig = 0, next;
     (/^S$/ or $a eq 'veryshort') and $outFormat+=2, next;
     /^s(hort)?(\d*)$/i and $outFormat = $2 eq '' ? $outFormat + 1 : $2, next;
-    /^scanforxmp$/i and $mt->Options(ScanForXMP => 1), next;
+    $a eq 'scanforxmp' and $mt->Options(ScanForXMP => 1), next;
     if (/^sep(arator)?$/i) {
         my $sep = $listSep = shift;
         defined $listSep or Error("Expecting list item separator for -sep option\n"), $badCmd=1, next;
@@ -1360,7 +1365,7 @@ for (;;) {
         next;
     }
     (/^X$/ or $a eq 'xmlformat') and $xml = 1, $html = $json = 0, $mt->Options(Duplicates => 1), next;
-    if (/^php$/i) {
+    if ($a eq 'php') {
         $json = 2;
         $html = $xml = 0;
         $mt->Options(Duplicates => 1);
@@ -2074,6 +2079,8 @@ if ($countBadWr or $countBadCr or $countBad) {
     $rtnVal = 2;
 }
 
+Image::ExifTool::Purge(0) if $purge;    # do final purging
+
 # clean up after each command
 Cleanup();
 
@@ -4198,7 +4205,8 @@ sub SetWindowTitle($)
     if ($curTitle ne $title) {
         $curTitle = $title;
         if ($^O eq 'MSWin32') {
-            $title =~ s/([&\/\?:|"<>])/^$1/g;   # escape special chars
+            $title =~ tr(-_a-zA-Z0-9%.+/:=?*@~)()dc;  # allow only safe characters
+            $title =~ s/([\/?:%])/^$1/g;   # escape remaing questionable chars
             eval { system qq{title $title} };
         } else {
             # (this only works for XTerm terminals, and STDERR must go to the console)
@@ -4253,6 +4261,7 @@ sub ProcessFiles($;$)
                     next if $endDir{$d};
                 }
                 GetImageInfo($et, $file);
+                Image::ExifTool::Purge($purge) if $purge;
                 $end and Warn("End called - $file\n");
                 if ($endDir) {
                     Warn("EndDir called - $file\n");
@@ -4382,6 +4391,7 @@ sub ScanDir($$;$)
             push(@$list, $path);
         } else {
             GetImageInfo($et, $path);
+            Image::ExifTool::Purge($purge) if $purge;
             if ($end) {
                 Warn("End called - $file\n");
                 last;
@@ -5341,9 +5351,10 @@ information.  Use the B<-s> option to see the tag names instead.
 Exclude specified tag from extracted information.  Same as the B<-x> option.
 Group names and wildcards are permitted as described above for B<->I<TAG>.
 Once excluded from the output, a tag may not be re-included by a subsequent
-option.  May also be used following a B<-tagsFromFile> option to exclude
-tags from being copied (when redirecting to another tag, it is the source
-tag that should be excluded), or to exclude groups from being deleted when
+option.  Also note that this excludes the tag from being used in a C<-if>
+condition.  May be used following a B<-tagsFromFile> option to exclude tags
+from being copied (when redirecting to another tag, it is the source tag
+that should be excluded), or to exclude groups from being deleted when
 deleting all information (eg. C<-all= --exif:all> deletes all but EXIF
 information).  But note that this will not exclude individual tags from a
 group delete (unless a family 2 group is specified, see note 4 below).
@@ -5530,7 +5541,7 @@ C<E<lt>> to avoid confusion with the C<E<lt>=> operator which sets the tag
 value from the contents of a file.  A single space at the start of the
 string is removed if it exists, but all other whitespace in the string is
 preserved.  See note 8 below about using the redirection feature with
-list-type stags, shortcuts or when using wildcards in tag names.
+list-type tags, shortcuts or when using wildcards in tag names.
 
 See L</COPYING EXAMPLES> for examples using B<-tagsFromFile>.
 
@@ -5601,7 +5612,7 @@ wildcards.  When copying directly, the values of each matching source tag
 are copied individually to the destination tag (as if they were separate
 assignments).  However, when interpolated inside a string, list items and
 the values of shortcut tags are concatenated (with a separator set by the
-B<-sep> option), and wildcards are not allowed.Another difference is that a
+B<-sep> option), and wildcards are not allowed. Another difference is that a
 minor warning is generated if a tag doesn't exist when interpolating its
 value in a string (with C<$>), but isn't when copying the tag directly.
 
@@ -6136,7 +6147,7 @@ with this command:
 
 produces output like this:
 
-    -- Generated by ExifTool 13.50 --
+    -- Generated by ExifTool 13.53 --
     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/APP12.pm

@@ -14,7 +14,7 @@ use strict;
 use vars qw($VERSION);
 use Image::ExifTool qw(:DataAccess :Utils);
 
-$VERSION = '1.14';
+$VERSION = '1.15';
 
 sub ProcessAPP12($$$);
 sub ProcessDucky($$$);
@@ -114,8 +114,8 @@ sub WriteDucky($$$);
         Priority => 0,
         Avoid => 1,
         # (ignore 4-byte character count at start of value)
-        ValueConv => '$self->Decode(substr($val,4),"UCS2","MM")',
-        ValueConvInv => 'pack("N",length $val) . $self->Encode($val,"UCS2","MM")',
+        ValueConv => '$self->Decode(substr($val,4),"UTF16","MM")',
+        ValueConvInv => 'pack("N",length $val) . $self->Encode($val,"UTF16","MM")',
     },
     3 => { #PH
         Name => 'Copyright',
@@ -123,8 +123,8 @@ sub WriteDucky($$$);
         Avoid => 1,
         Groups => { 2 => 'Author' },
         # (ignore 4-byte character count at start of value)
-        ValueConv => '$self->Decode(substr($val,4),"UCS2","MM")',
-        ValueConvInv => 'pack("N",length $val) . $self->Encode($val,"UCS2","MM")',
+        ValueConv => '$self->Decode(substr($val,4),"UTF16","MM")',
+        ValueConvInv => 'pack("N",length $val) . $self->Encode($val,"UTF16","MM")',
     },
 );
 

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

@@ -17,7 +17,7 @@ use Image::ExifTool qw(:DataAccess :Utils);
 use Image::ExifTool::Exif;
 use Image::ExifTool::RIFF;
 
-$VERSION = '1.26';
+$VERSION = '1.27';
 
 sub ProcessASF($$;$);
 sub ProcessContentDescription($$$);
@@ -549,7 +549,7 @@ sub ProcessContentDescription($$$)
         my $len = shift @len;
         next unless $len;
         return 0 if $pos + $len > $dirLen;
-        my $val = $et->Decode(substr($$dataPt,$pos,$len),'UCS2','II');
+        my $val = $et->Decode(substr($$dataPt,$pos,$len),'UTF16','II');
         $et->HandleTag($tagTablePtr, $tag, $val);
         $pos += $len;
     }
@@ -594,7 +594,7 @@ sub ReadASF($$$$$)
     my ($et, $dataPt, $pos, $format, $size) = @_;
     my @vals;
     if ($format == 0) { # unicode string
-        $vals[0] = $et->Decode(substr($$dataPt,$pos,$size),'UCS2','II');
+        $vals[0] = $et->Decode(substr($$dataPt,$pos,$size),'UTF16','II');
     } elsif ($format == 2) { # 4-byte boolean
         @vals = ReadValue($dataPt, $pos, 'int32u', undef, $size);
         foreach (@vals) {
@@ -631,7 +631,7 @@ sub ProcessExtendedContentDescription($$$)
         my $nameLen = unpack("x${pos}v", $$dataPt);
         $pos += 2;
         return 0 if $pos + $nameLen + 4 > $dirLen;
-        my $tag = Image::ExifTool::Decode(undef,substr($$dataPt,$pos,$nameLen),'UCS2','II','Latin');
+        my $tag = Image::ExifTool::Decode(undef,substr($$dataPt,$pos,$nameLen),'UTF16','II','Latin');
         $tag =~ s/^WM\///; # remove leading "WM/"
         $pos += $nameLen;
         my ($dType, $dLen) = unpack("x${pos}v2", $$dataPt);
@@ -667,7 +667,7 @@ sub ProcessMetadata($$$)
         my ($index, $stream, $nameLen, $dType, $dLen) = unpack("x${pos}v4V", $$dataPt);
         $pos += 12;
         return 0 if $pos + $nameLen + $dLen > $dirLen;
-        my $tag = Image::ExifTool::Decode(undef,substr($$dataPt,$pos,$nameLen),'UCS2','II','Latin');
+        my $tag = Image::ExifTool::Decode(undef,substr($$dataPt,$pos,$nameLen),'UTF16','II','Latin');
         $tag =~ s/^WM\///; # remove leading "WM/"
         $pos += $nameLen;
         my $val = ReadASF($et,$dataPt,$pos,$dType,$dLen);
@@ -702,8 +702,8 @@ sub ProcessPicture($$$)
     my $str = substr($$dataPt, $dirStart+5, $n);
     if ($str =~ /^((?:..)*?)\0\0((?:..)*?)\0\0/s) {
         my ($mime, $desc) = ($1, $2);
-        $et->HandleTag($tagTablePtr, 1, $et->Decode($mime,'UCS2','II'));
-        $et->HandleTag($tagTablePtr, 2, $et->Decode($desc,'UCS2','II')) if length $desc;
+        $et->HandleTag($tagTablePtr, 1, $et->Decode($mime,'UTF16','II'));
+        $et->HandleTag($tagTablePtr, 2, $et->Decode($desc,'UTF16','II')) if length $desc;
     }
     $et->HandleTag($tagTablePtr, 3, substr($$dataPt, $dirStart+5+$n, $picLen));
     return 1;
@@ -731,12 +731,12 @@ sub ProcessCodecList($$$)
         my $nameLen = Get16u($dataPt, $pos + 2) * 2;
         $pos += 4;
         return 0 if $pos + $nameLen + 2 > $dirLen;
-        my $name = $et->Decode(substr($$dataPt,$pos,$nameLen),'UCS2','II');
+        my $name = $et->Decode(substr($$dataPt,$pos,$nameLen),'UTF16','II');
         $et->HandleTag($tagTablePtr, "${type}Name", $name);
         my $descLen = Get16u($dataPt, $pos + $nameLen) * 2;
         $pos += $nameLen + 2;
         return 0 if $pos + $descLen + 2 > $dirLen;
-        my $desc = $et->Decode(substr($$dataPt,$pos,$descLen),'UCS2','II');
+        my $desc = $et->Decode(substr($$dataPt,$pos,$descLen),'UTF16','II');
         $et->HandleTag($tagTablePtr, "${type}Description", $desc);
         my $infoLen = Get16u($dataPt, $pos + $descLen);
         $pos += $descLen + 2 + $infoLen;

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

@@ -35,7 +35,7 @@ use Image::ExifTool::Sony;
 use Image::ExifTool::Validate;
 use Image::ExifTool::MacOS;
 
-$VERSION = '3.65';
+$VERSION = '3.67';
 @ISA = qw(Exporter);
 
 sub NumbersFirst($$);
@@ -963,6 +963,9 @@ TagID:  foreach $tagID (@keys) {
                 if ($$tagInfo{List} and $$tagInfo{List} !~ /^(1|Alt|Bag|Seq|array|string)$/) {
                     warn "Warning: Unknown List type ($$tagInfo{List}) for $name in $tableName\n";
                 }
+                if ($$tagInfo{Hook} and $$tagInfo{Unknown}) {
+                    warn "Warning: Unknown tag with Hook - $short $name\n"
+                }
                 # accumulate information for consistency check of BinaryData tables
                 if ($processBinaryData and $$table{WRITABLE}) {
                     # can't currently write tag if Condition accesses $valPt
@@ -2262,22 +2265,33 @@ sub WriteTagNames($$)
                 print HTMLFILE "<table class='inner sep' cellspacing=1>\n";
                 my $align = ' class=r';
                 my $wid = 0;
-                my @keys;
+                my (@keys, @bits);
                 foreach (sort { NumbersFirst($a,$b) } keys %$printConv) {
-                    next if /^(Notes|PrintHex|PrintInt|PrintString|OTHER)$/;
+                    next if /^(Notes|PrintHex|PrintInt|PrintString|OTHER|BITMASK)$/;
                     $align = '' if $align and /[^\d]/;
                     my $w = length($_) + length($$printConv{$_});
                     $wid = $w if $wid < $w;
                     push @keys, $_;
-                    if ($$printConv{$_} =~ /[\0-\x1f\x7f-\xff]/) {
-                        warn "Warning: Special characters in $tableName PrintConv ($$printConv{$_})\n";
+                    next unless $$printConv{$_} =~ /[\0-\x1f\x7f-\xff]/;
+                    warn "Warning: Special characters in $tableName PrintConv ($$printConv{$_})\n";
+                }
+                my $bits = $$printConv{BITMASK};
+                if ($bits) {
+                    $align = '';
+                    foreach (sort { NumbersFirst($a,$b) } keys %$bits) {
+                        my $w = length($_) + length($$bits{$_}) + 4;
+                        $wid = $w if $wid < $w;
+                        push @bits, $_;
+                        next unless $$bits{$_} =~ /[\0-\x1f\x7f-\xff]/;
+                        warn "Warning: Special characters in $tableName PrintConv BITMASK ($$bits{$_})\n";
                     }
                 }
                 $wid = length($tableName)+7 if $wid < length($tableName)+7;
                 # print in multiple columns if there is room
                 my $cols = int(110 / ($wid + 4));
-                $cols = 1 if $cols < 1 or $cols > @keys or @keys < 4;
-                my $rows = int((scalar(@keys) + $cols - 1) / $cols);
+                my $items = @keys + @bits;
+                $cols = 1 if $cols < 1 or $cols > $items or $items < 4;
+                my $rows = int(($items + $cols - 1) / $cols);
                 my ($r, $c);
                 print HTMLFILE '<tr class=h>';
                 for ($c=0; $c<$cols; ++$c) {
@@ -2287,11 +2301,18 @@ sub WriteTagNames($$)
                 for ($r=0; $r<$rows; ++$r) {
                     print HTMLFILE '<tr>';
                     for ($c=0; $c<$cols; ++$c) {
-                        my $key = $keys[$r + $c*$rows];
-                        my ($index, $prt);
+                        my ($key, $val, $index, $prt);
+                        my $n = $r + $c * $rows;
+                        if ($n < @keys) {
+                            $key = $keys[$n];
+                            $val = $$printConv{$key};
+                        } elsif ($n < $items) {
+                            $key = 'Bit ' . $bits[$n - @keys];
+                            $val = $$bits{$bits[$n - @keys]};
+                        }
                         if (defined $key) {
                             $index = $key;
-                            $prt = '= ' . EscapeHTML($$printConv{$key});
+                            $prt = '= ' . EscapeHTML($val);
                             $index =~ s/\.\d+$// if $$printConv{PrintInt};
                             if ($$printConv{PrintHex}) {
                                 $index =~ s/(\.\d+)$//; # remove decimal

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

@@ -16,7 +16,7 @@ use vars qw($VERSION);
 use Image::ExifTool qw(:DataAccess :Utils);
 use Image::ExifTool::JSON;
 
-$VERSION = '1.03';
+$VERSION = '1.04';
 
 sub ProcessCBOR($$$);
 sub ReadCBORValue($$$$);
@@ -207,6 +207,7 @@ sub ReadCBORValue($$$$)
         # read next value (note: in the case of multiple tags,
         # this nesting will apply the tags in the correct order)
         ($val, $err, $pos) = ReadCBORValue($et, $dataPt, $pos, $end);
+        return(undef, $err, $pos) if $err;
         $dumpStart = $pos;
         # convert some values according to the optional tag number (untested)
         if ($num == 0 and not ref $val) {       # date/time string