From: Colin Clark 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?a=commitdiff_plain;h=f111f23cf9a9413f0389cbfd5749d3446095e05e;p=geeqie.git Bug fix: decode_sim perl script Explicitly check for Date=[-1] --- diff --git a/scripts/decode_sim b/scripts/decode_sim index e4a7fddfa..83d20fab3 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);