Support >1 sec exposure times in EXIF.
authorSteinar H. Gunderson <sesse@debian.org>
Sun, 13 May 2007 23:51:06 +0000 (01:51 +0200)
committerSteinar H. Gunderson <sesse@debian.org>
Sun, 13 May 2007 23:51:06 +0000 (01:51 +0200)
perl/Sesse/pr0n/Common.pm

index 20dacfb49db4602bb711ccd89a844b0d532f4b6f..c34aa65f1df96e3a01eaeeb6c837f686792d93b9 100644 (file)
@@ -444,6 +444,8 @@ sub make_infobox {
                my ($a, $b) = ($1, $2);
                my $gcd = gcd($a, $b);
                push @classic_fields, ($a/$gcd . "/" . $b/$gcd . "s");
                my ($a, $b) = ($1, $2);
                my $gcd = gcd($a, $b);
                push @classic_fields, ($a/$gcd . "/" . $b/$gcd . "s");
+       } elsif (defined($info->{'ExposureTime'}) && $info->{'ExposureTime'} =~ /^(\d+)$/) {
+               push @classic_fields, ($1 . "s");
        }
        if (defined($info->{'FNumber'}) && $info->{'FNumber'} =~ /^(\d+)\/(\d+)$/) {
                my $f = $1/$2;
        }
        if (defined($info->{'FNumber'}) && $info->{'FNumber'} =~ /^(\d+)\/(\d+)$/) {
                my $f = $1/$2;