| line |
true |
false |
branch |
|
1456
|
0 |
0 |
if $a =~ /^(0x[0-9a-f]+)?\.?(\d*?)$/ |
|
1457
|
0 |
0 |
if $b =~ /^(0x[0-9a-f]+)?\.?(\d*?)$/ |
|
1458
|
0 |
0 |
if ($aHex) { } |
|
|
0 |
0 |
elsif ($bHex) { } |
|
1459
|
0 |
0 |
unless defined $bDec |
|
1460
|
0 |
0 |
if $bHex |
|
1463
|
0 |
0 |
unless defined $aDec |
|
1466
|
0 |
0 |
unless defined $bDec |
|
1467
|
0 |
0 |
unless defined $aDec |
|
1478
|
0 |
73 |
unless @vals == 21 |
|
1480
|
0 |
73 |
unless $n >= 2 and $n <= 10 |
|
1483
|
144 |
73 |
if $val |
|
1495
|
0 |
18 |
unless @vals >= 4 and @vals <= 20 and not @vals & 1 |
|
1508
|
0 |
38 |
unless $et |
|
1518
|
35 |
3 |
unless $outfile |
|
1520
|
3 |
35 |
if ($outfile) |
|
1532
|
19 |
134 |
if ($pos + 4 > $dirEnd) { } |
|
1533
|
19 |
0 |
if $pos == $dirEnd |
|
1538
|
19 |
115 |
if $recLen == 0 and $pos + 4 == $dirEnd |
|
1541
|
0 |
115 |
if ($pos + $recLen > $dirEnd) |
|
1547
|
0 |
115 |
if ($verbose > 1 and not $outfile) |
|
1550
|
0 |
0 |
if $recNum |
|
1554
|
77 |
38 |
if $recNum |
|
1569
|
19 |
77 |
unless my $tagInfo = $subTablePtr->{$index} |
|
1572
|
29 |
48 |
if ($tagInfo->{'Size'}) { } |
|
|
29 |
19 |
elsif (defined $tagInfo->{'Size'}) { } |
|
1576
|
19 |
10 |
unless $subStart + 4 <= $recLen |
|
1582
|
0 |
58 |
if $subLen > $maxLen |
|
1583
|
48 |
10 |
if ($subLen) |
|
1589
|
5 |
43 |
if ($outfile) { } |
|
1591
|
0 |
5 |
if $verbose |
|
1593
|
5 |
0 |
if ($newVal) |
|
1596
|
0 |
5 |
if ($sizeDiff) |
|
1617
|
0 |
38 |
if ($outfile and $saveRecLen ne $recLen) |
|
1622
|
3 |
35 |
if ($outfile) |
|
1623
|
1 |
2 |
if $oldChanged == $et->{'CHANGED'} |
|
1626
|
0 |
35 |
$err ? : |
|
1647
|
0 |
0 |
unless ($hdr =~ /^IHL Created Optional Item Data\0\0/) |
|
1654
|
0 |
0 |
if ($size > $next or $pos + 48 + $next > $dirEnd) |
|
1717
|
105 |
17 |
unless $et |
|
1728
|
4 |
13 |
if ($isWriting) |
|
1731
|
2 |
2 |
if ($newVal) { } |
|
|
0 |
2 |
elsif (not $dataPt and $nvHash || $et->{'DEL_GROUP'}{'CanonVRD'}) { } |
|
1735
|
2 |
0 |
if ($outfile) { } |
|
1736
|
0 |
2 |
unless &Write($dirInfo->{'OutFile'}, $newVal) |
|
1746
|
9 |
6 |
if ($dataPt) { } |
|
1752
|
0 |
6 |
unless $raf->Read($buff, 8) == 8 and $buff eq "IIII\4\0\4\0" |
|
1754
|
0 |
6 |
unless $raf->Seek(0, 2) |
|
1756
|
0 |
6 |
unless $raf->Seek(0, 0) |
|
1757
|
0 |
6 |
unless $raf->Read($buff, $dirLen) == $dirLen |
|
1758
|
0 |
6 |
if $err |
|
1765
|
2 |
13 |
if ($et->{'TAGS_FROM_FILE'} and not $et->{'EXCL_TAG_LOOKUP'}{'canondr4'} or $et->{'REQ_TAG_LOOKUP'}{'canondr4'}) |
|
1773
|
0 |
15 |
if ($dirLen < 32) { } |
|
1776
|
0 |
15 |
unless &SetByteOrder(substr($$dataPt, $pos, 2)) |
|
1785
|
2 |
13 |
if ($outfile) { } |
|
1787
|
2 |
0 |
if $hdr and length $hdr == 32 |
|
1794
|
0 |
15 |
if $dirLen < 36 + 28 * $numEntries |
|
1796
|
0 |
0 |
$outfile ? : |
|
|
0 |
15 |
if $err |
|
1798
|
2 |
13 |
if ($outfile) { } |
|
1808
|
0 |
1155 |
if $entry + 28 > $dirEnd |
|
1816
|
15 |
1140 |
if $off + $len >= $dirEnd |
|
1818
|
15 |
1125 |
if (not $format) { } |
|
|
450 |
1200 |
elsif ($format eq 'double' and $len == 8) { } |
|
1824
|
60 |
390 |
if abs $val < "1e-100" |
|
1826
|
152 |
988 |
if ($outfile) |
|
1829
|
8 |
144 |
if ($tagInfo and $tagInfo->{'SubDirectory'}) { } |
|
1839
|
6 |
2 |
if (defined $dat and length $dat == $len) { } |
|
1847
|
288 |
144 |
$i >= 0 ? : |
|
1848
|
430 |
2 |
unless $tagInfo |
|
1849
|
1 |
1 |
if ($i >= 0) |
|
1855
|
2 |
0 |
unless defined $val |
|
1858
|
2 |
0 |
if ($et->IsOverwriting($nvHash, $val) and defined $newVal) |
|
1861
|
2 |
0 |
if (defined $rtnVal) |
|
1885
|
91 |
2873 |
if $tagTablePtr->{$flagID} |
|
1888
|
13 |
2 |
unless $isWriting |
|
1889
|
1 |
1 |
unless $raf |
|
1890
|
1 |
0 |
if &Write($outfile, substr($$dataPt, $pos, $dirLen)) |
|
1906
|
6 |
8 |
if $dirInfo->{'OutFile'} |
|
1908
|
2 |
12 |
if (not $num and $dirInfo->{'OutFile'}) { } |
|
1911
|
1 |
1 |
if ($newVal) { } |
|
1913
|
0 |
1 |
unless &Write($dirInfo->{'OutFile'}, $newVal) |
|
1918
|
1 |
0 |
if ($et->{'ADD_DIRS'}{'CanonVRD'}) |
|
1920
|
1 |
0 |
if (&ProcessCanonVRD($et, {"OutFile", \$newVal}) > 0) |
|
1921
|
0 |
1 |
unless &Write($dirInfo->{'OutFile'}, $newVal) |
|
1929
|
0 |
12 |
unless $num == 28 |
|
1930
|
0 |
12 |
unless $buff =~ /^CANON OPTIONAL DATA\0/ |
|
1934
|
0 |
12 |
if $result < 0 |
|
1935
|
0 |
12 |
unless $result |
|
1948
|
6 |
1 |
unless $et |
|
1951
|
1 |
0 |
unless defined $val |
|
1952
|
1 |
0 |
unless $et->IsOverwriting($nvHash, $val) |
|
1964
|
0 |
2 |
unless $et |
|
1967
|
1 |
1 |
if (defined $val) |
|
1968
|
0 |
1 |
unless $et->IsOverwriting($nvHash, $val) |
|
1975
|
1 |
0 |
if &ProcessCanonVRD($et, $dirInfo, $tagTablePtr) > 0 |
|
2000
|
53 |
6 |
if ($raf) { } |
|
2003
|
2 |
4 |
unless ($dataPt) |
|
2004
|
0 |
2 |
unless $outfile |
|
2008
|
0 |
2 |
if $verbose |
|
2014
|
0 |
59 |
unless $raf->Seek(-64 - $offset, 2) |
|
2015
|
0 |
59 |
unless $raf->Read($buff, 64) == 64 |
|
2016
|
0 |
59 |
unless $buff =~ /^CANON OPTIONAL DATA\0(.{4})/s |
|
2020
|
0 |
59 |
unless ($dirLen < 2147483648 and $raf->Seek(-$dirLen, 1) and $raf->Read($buff, 28) == 28 and $buff =~ /^CANON OPTIONAL DATA\0/ and $raf->Seek(-28, 1)) |
|
2033
|
14 |
4 |
if ($outfile and ref $outfile eq "SCALAR" and not length $$outfile) |
|
2035
|
3 |
11 |
unless $fromFile |
|
2040
|
53 |
6 |
if ($fromFile or $dirInfo->{'DirStart'}) |
|
2041
|
42 |
11 |
unless $dataPt |
|
2043
|
0 |
53 |
unless ($raf->Read($$dataPt, $dirLen) == $dirLen) |
|
2044
|
0 |
0 |
if $outfile and $outfile eq $dataPt |
|
2051
|
18 |
41 |
if ($outfile) { } |
|
|
1 |
40 |
elsif ($verbose or $et->{'HTML_DUMP'}) { } |
|
2052
|
0 |
18 |
if $verbose and not $created |
|
2054
|
4 |
14 |
unless (exists $et->{'EDIT_DIRS'}{'CanonVRD'}) |
|
2055
|
0 |
4 |
if $verbose |
|
2056
|
4 |
0 |
if $outfile eq $dataPt |
|
2057
|
0 |
0 |
&Write($outfile, $$dataPt) ? : |
|
2061
|
13 |
1 |
unless ($doDel) |
|
2062
|
0 |
13 |
if $et->{'DEL_GROUP'}{'Trailer'} and $et->{'FILE_TYPE'} ne "VRD" |
|
2063
|
13 |
0 |
unless ($doDel) |
|
2065
|
3 |
10 |
if ($et->{'NEW_VALUE'}{$Image::ExifTool::Extra{'CanonVRD'}}) |
|
2067
|
3 |
0 |
unless $$dataPt =~ /^.{28}\xff\xff\0\xf7/s |
|
2069
|
5 |
8 |
if ($et->{'NEW_VALUE'}{$Image::ExifTool::Extra{'CanonDR4'}} and not $doDel) |
|
2071
|
1 |
4 |
if $$dataPt =~ /^.{28}\xff\xff\0\xf7/s |
|
2075
|
5 |
9 |
if ($doDel) |
|
2076
|
1 |
4 |
if ($et->{'FILE_TYPE'} eq 'VRD') { } |
|
2078
|
1 |
0 |
if ($newVal) { } |
|
2079
|
0 |
1 |
if $verbose |
|
2080
|
0 |
1 |
if ($outfile eq $dataPt) { } |
|
2083
|
0 |
1 |
unless &Write($outfile, $newVal) |
|
2091
|
0 |
4 |
if $verbose |
|
2092
|
4 |
0 |
if $outfile eq $dataPt |
|
2099
|
9 |
0 |
unless ($val) |
|
2101
|
4 |
5 |
if $val |
|
2103
|
4 |
5 |
if ($val) |
|
2104
|
0 |
4 |
if $verbose |
|
2106
|
4 |
0 |
if $vrdType eq "DR4" |
|
2107
|
3 |
1 |
if ($outfile eq $dataPt) { } |
|
2110
|
0 |
1 |
unless &Write($outfile, $val) |
|
2117
|
1 |
0 |
if $dirInfo->{'RAF'} |
|
2129
|
46 |
46 |
if ($pos + 8 > $end) { } |
|
2130
|
46 |
0 |
if $pos == $end |
|
2136
|
9 |
37 |
if $blockType == 4294902007 |
|
2138
|
0 |
46 |
if ($pos + $blockLen > $end) |
|
2142
|
0 |
46 |
if ($verbose > 1 and not $outfile) |
|
2148
|
0 |
46 |
unless ($tagInfo) |
|
2149
|
0 |
0 |
unless ($et->Options("Unknown")) |
|
2163
|
46 |
0 |
if ($tagInfo->{'SubDirectory'}) { } |
|
2175
|
4 |
42 |
if ($outfile) { } |
|
2179
|
0 |
4 |
if ($et->{'NEW_VALUE'}{$tagInfo}) { } |
|
2183
|
0 |
0 |
unless defined $dat |
|
2189
|
3 |
1 |
if (defined $dat) |
|
2190
|
3 |
0 |
if (length $dat or not $et->{'FILE_TYPE'} =~ /^(CRW|VRD)$/) { } |
|
2198
|
1 |
2 |
if (($diff = length($$dataPt) - $dirLen) != 0) |
|
2215
|
5 |
41 |
if ($outfile) { } |
|
|
7 |
34 |
elsif ($vrdType eq 'VRD' and $et->{'TAGS_FROM_FILE'} && !$et->{'EXCL_TAG_LOOKUP'}{'canonvrd'} || $et->{'REQ_TAG_LOOKUP'}{'canonvrd'}) { } |
|
2217
|
4 |
1 |
if ($et->{'ADD_DIRS'}{'CanonVRD'} and not $didDir{'XMP'}) |
|
2220
|
2 |
2 |
if ($dat) |
|
2230
|
5 |
0 |
if (length $$dataPt) { } |
|
2231
|
2 |
3 |
unless $outfile eq $dataPt |
|
2233
|
0 |
0 |
if $verbose |
|
2242
|
0 |
46 |
$err ? : |