From: Colin Clark <colin.clark@cclark.uk>
Date: Fri, 3 Apr 2020 10:44:12 +0000 (+0100)
Subject: Bug fix: decode_sim perl script
X-Git-Tag: v1.6~70
X-Git-Url: http://geeqie.org/cgi-bin/gitweb.cgi?p=geeqie.git;a=commitdiff_plain;h=f111f23cf9a9413f0389cbfd5749d3446095e05e

Bug fix: decode_sim perl script

Explicitly check for Date=[-1]
---

diff --git a/scripts/decode_sim b/scripts/decode_sim
index e4a7fddf..83d20fab 100755
--- a/scripts/decode_sim
+++ b/scripts/decode_sim
@@ -27,6 +27,10 @@ while (<$in_fh>)
    {
       printf "Original image dimensions: %dx%d\n", $1, $2;
    }
+   elsif (/^Date=(\[-1\])/)
+   {
+      printf "Exif Date Original: %s\n", $1;
+   }
    elsif (/^Date=(.*)/)
    {
       my $unix_time = substr($1, 1, 10);