| line |
true |
false |
branch |
|
392
|
0 |
0 |
unless defined $base |
|
393
|
0 |
0 |
if ($tagInfo) { } |
|
396
|
0 |
0 |
if ($tagInfo->{'Format'}) |
|
408
|
0 |
0 |
if ($size > 4) { } |
|
416
|
0 |
0 |
unless (ref $value) |
|
417
|
0 |
0 |
length $value > 32 ? : |
|
422
|
0 |
0 |
if ($size > 4) |
|
425
|
0 |
0 |
$subdir ? : |
|
436
|
197 |
2 |
unless $et |
|
440
|
0 |
0 |
unless %$newTags or $et->{'DropTags'} or $et->{'EDIT_DIRS'}{'PhaseOne'} |
|
449
|
0 |
2 |
if $dirLen < 12 |
|
450
|
0 |
2 |
unless ($tagTablePtr->{'VARS'} and $tagTablePtr->{'VARS'}{'ENTRY_SIZE'}) |
|
457
|
1 |
1 |
if ($entrySize == 16) { } |
|
|
0 |
1 |
elsif (not $hdr =~ /^(IIII\x01\0\0\0|MMMM\0\0\0\x01)/s) { } |
|
458
|
0 |
1 |
unless $hdr =~ /^(IIII.waR|MMMMRaw.)/s |
|
466
|
0 |
2 |
if $ifdStart + 8 > $dirLen |
|
472
|
0 |
2 |
if $numEntries < 2 or $numEntries > 300 or $ifdEnd > $dirLen |
|
482
|
58 |
44 |
if ($entrySize == 16) { } |
|
485
|
0 |
58 |
unless ($formatStr) |
|
495
|
56 |
46 |
if ($size > 4) |
|
496
|
0 |
56 |
if ($size > 2147483647) |
|
501
|
0 |
56 |
if ($valuePtr + $size > $dirLen) |
|
509
|
0 |
102 |
if $tagInfo and ref $tagInfo ne "HASH" |
|
510
|
2 |
100 |
if ($newTags->{$tagID}) { } |
|
|
1 |
99 |
elsif ($tagInfo and $tagInfo->{'SubDirectory'}) { } |
|
|
0 |
99 |
elsif ($et->{'DropTags'} and $tagInfo && $tagInfo->{'Drop'} || $size > 8192) { } |
|
511
|
2 |
0 |
if $tagInfo->{'Format'} |
|
515
|
2 |
0 |
if ($et->IsOverwriting($nvHash, $val)) |
|
518
|
2 |
0 |
if $formatStr eq "string" or $formatStr eq "undef" |
|
520
|
2 |
0 |
if (defined $newValue) |
|
536
|
1 |
0 |
if (defined $newValue and length $newValue) |
|
549
|
8 |
94 |
if $size & 3 or not $size |
|
550
|
46 |
56 |
if ($size <= 4) { } |
|
|
1 |
55 |
elsif ($tagInfo and $tagInfo->{'PutFirst'}) { } |
|
589
|
0 |
5 |
if $dirLen < 12 |
|
590
|
0 |
5 |
unless ($tagTablePtr->{'VARS'} and $tagTablePtr->{'VARS'}{'ENTRY_SIZE'}) |
|
598
|
3 |
2 |
if ($entrySize == 16) { } |
|
|
0 |
2 |
elsif (not $hdr =~ /^(IIII\x01\0\0\0|MMMM\0\0\0\x01)/s) { } |
|
599
|
0 |
3 |
unless $hdr =~ /^(IIII.waR|MMMMRaw.)/s |
|
607
|
1 |
4 |
if $ifdStart + 8 > $dirLen |
|
611
|
0 |
4 |
if $numEntries < 2 or $numEntries > 300 or $ifdEnd > $dirLen |
|
613
|
0 |
4 |
if ($htmlDump) |
|
627
|
116 |
88 |
if ($entrySize == 16) { } |
|
|
8 |
80 |
elsif ($size % 4) { } |
|
631
|
0 |
116 |
unless ($formatStr) |
|
643
|
112 |
92 |
if ($size > 4) |
|
644
|
0 |
112 |
if ($size > 2147483647) |
|
649
|
0 |
112 |
if ($valuePtr + $size > $dirLen) |
|
656
|
134 |
70 |
if ($tagInfo) { } |
|
657
|
65 |
69 |
if $tagInfo->{'Format'} |
|
659
|
70 |
0 |
unless $verbose or $htmlDump |
|
662
|
0 |
134 |
if ($count > 100000 and not $binary) { } |
|
667
|
67 |
67 |
if ($formatStr eq "int32s") |
|
669
|
66 |
1 |
if (defined $val) |
|
672
|
1 |
65 |
if ($exp > 120 and $exp < 140) |
|
689
|
0 |
134 |
if $htmlDump |