| line |
true |
false |
branch |
|
174
|
0 |
0 |
if $pos + 4 > $end |
|
176
|
0 |
0 |
unless $val |
|
178
|
0 |
0 |
unless $tagInfo |
|
179
|
0 |
0 |
if ($index & 2) { } |
|
187
|
0 |
0 |
if $pos + $hdrLen > $end |
|
191
|
0 |
0 |
if ($et->{'OPTIONS'}{'Binary'} and not $et->{'EXCL_TAG_LOOKUP'}{$lcTag} or $et->{'REQ_TAG_LOOKUP'}{$lcTag}) { } |
|
194
|
0 |
0 |
unless (eval {
do {
require Compress::Zlib
}
}) |
|
205
|
0 |
0 |
if ($p1 >= $p2 or $p2 > $end) |
|
212
|
0 |
0 |
if $inflate |
|
213
|
0 |
0 |
if ($inflate and $stat == Compress::Zlib::Z_STREAM_END()) { } |
|
222
|
0 |
0 |
if $pos + $hdrLen > $end |
|
224
|
0 |
0 |
if $pos + $len > $end |
|
232
|
0 |
0 |
if defined $err |
|
251
|
0 |
3 |
unless $$dataPt =~ /^Adobe\0/ |
|
252
|
2 |
1 |
unless ($outfile) |
|
256
|
0 |
2 |
if $fast and $fast > 1 |
|
258
|
0 |
3 |
if $htmlDump |
|
264
|
0 |
3 |
if $pos + $size > $end |
|
266
|
0 |
3 |
if ($htmlDump) |
|
271
|
0 |
0 |
unless ($tag =~ /^(MakN|SR2 )$/) |
|
275
|
0 |
3 |
if ($verbose and not $outfile) |
|
276
|
0 |
0 |
unless $tagInfo |
|
277
|
0 |
0 |
ref $tagInfo eq 'HASH' ? : |
|
288
|
0 |
3 |
if (ref $tagInfo eq 'HASH') { } |
|
289
|
0 |
0 |
unless ($tagInfo->{'SubDirectory'}) |
|
290
|
0 |
0 |
if ($outfile) { } |
|
315
|
1 |
2 |
if ($outfile) { } |
|
319
|
0 |
1 |
unless defined $value |
|
326
|
1 |
2 |
if (defined $value and length $value) |
|
328
|
1 |
0 |
unless $$outfile and length $$outfile |
|
330
|
0 |
1 |
if length $value & 1 |
|
333
|
0 |
3 |
if $size & 1 |
|
335
|
0 |
3 |
unless $pos == $end |
|
358
|
0 |
0 |
if $dirInfo->{'DirLen'} < 4 |
|
360
|
0 |
0 |
unless $byteOrder =~ /^(II|MM)$/ |
|
363
|
0 |
0 |
if $buildMakerNotes |
|
367
|
0 |
0 |
unless $outfile |
|
368
|
0 |
0 |
if ($outfile) |
|
377
|
0 |
0 |
if $pos + 6 > $end |
|
381
|
0 |
0 |
if $pos + $size > $end |
|
388
|
0 |
0 |
if ($tagInfo) |
|
389
|
0 |
0 |
if $tagInfo->{'Format'} |
|
393
|
0 |
0 |
if (not defined $count and $tag & 16384 and $format and $format ne "string") |
|
397
|
0 |
0 |
if ($format and not $count) |
|
403
|
0 |
0 |
unless $format |
|
406
|
0 |
0 |
if ($outfile) { } |
|
407
|
0 |
0 |
if ($tagInfo) |
|
409
|
0 |
0 |
if ($subdir and $subdir->{'TagTable'}) { } |
|
|
0 |
0 |
elsif ($newTags->{$tagID}) { } |
|
412
|
0 |
0 |
unless $newTagTable |
|
415
|
0 |
0 |
if $subdir->{'Start'} |
|
426
|
0 |
0 |
if (defined $subdir->{'Validate'} and not eval $subdir->{'Validate'}) { } |
|
430
|
0 |
0 |
if (defined $subdir and length $subdir) |
|
431
|
0 |
0 |
if ($subdirStart) { } |
|
441
|
0 |
0 |
if ($et->IsOverwriting($nvHash, $val)) |
|
444
|
0 |
0 |
if $verbose > 1 |
|
446
|
0 |
0 |
if (defined $newVal and $format) |
|
449
|
0 |
0 |
if (defined $newVal) |
|
471
|
0 |
0 |
if ($buildMakerNotes) |
|
479
|
0 |
0 |
if $tagID == 2053 |
|
483
|
0 |
0 |
if ($outfile and !defined($$outfile) || $index != $entries || $et->{'CHANGED'} == $oldChanged) |
|
489
|
0 |
0 |
if ($index != $entries) { } |
|
|
0 |
0 |
elsif ($pos < $end) { } |
|
495
|
0 |
0 |
if ($buildMakerNotes) |
|
522
|
0 |
0 |
if ($outfile and defined $$outfile and length $$outfile) |
|
536
|
0 |
0 |
if $dirInfo->{'OutFile'} |
|
543
|
0 |
0 |
if ($pos + 2 <= $dirEnd and &SetByteOrder(substr($$dataPt, $pos, 2))) { } |
|
558
|
0 |
0 |
if $pos + 4 > $dirEnd |
|
561
|
0 |
0 |
unless $len |
|
562
|
0 |
0 |
unless $readIt |
|
568
|
0 |
0 |
unless $et->ProcessDirectory(\%dirInfo, $tagTablePtr) |
|
572
|
0 |
0 |
if $warn |
|
584
|
0 |
0 |
if $dirInfo->{'OutFile'} |
|
589
|
0 |
0 |
if $len < 6 |
|
592
|
0 |
0 |
unless &SetByteOrder(substr($$dataPt, $start, 2)) |
|
611
|
0 |
0 |
if ($et->Options("HtmlDump")) |
|
627
|
0 |
0 |
if $dirInfo->{'OutFile'} |
|
632
|
0 |
0 |
if $dirInfo->{'DirLen'} < 4 |
|
634
|
0 |
0 |
unless &SetByteOrder($dataOrder) |
|
647
|
0 |
0 |
if $pos + 8 > $end |
|
652
|
0 |
0 |
if ($format < 1 or $format > 13) |
|
654
|
0 |
0 |
if $format |
|
659
|
0 |
0 |
if $pos + 8 + $size > $end |
|
672
|
0 |
0 |
if ($index < $entries) |
|
693
|
0 |
3 |
if $len < 6 |
|
696
|
0 |
3 |
unless &SetByteOrder(substr($$dataPt, $start, 2)) |
|
698
|
2 |
1 |
unless $outfile |
|
710
|
0 |
3 |
if $len >= 18 and substr($$dataPt, $start + 6, 4) eq "\0\0\0\1" |
|
715
|
0 |
3 |
$dirLen < 48 ? : |
|
717
|
0 |
3 |
unless $tagInfo and $tagInfo->{'SubDirectory'} |
|
737
|
0 |
3 |
unless (defined $loc) |
|
741
|
0 |
3 |
if ($et->Options("HtmlDump")) |
|
743
|
0 |
0 |
if $loc |
|
747
|
3 |
0 |
unless ($subdir->{'Base'}) |
|
753
|
1 |
2 |
if ($outfile) { } |
|
759
|
0 |
1 |
unless (defined $buff and $et->{'CHANGED'} != $oldChanged) |
|
764
|
0 |
1 |
unless (length $buff) |
|
769
|
0 |
1 |
if ($subdirInfo{'Relative'}) { } |
|
778
|
0 |
1 |
if $subdirInfo{'BlockWrite'} |
|
789
|
0 |
2 |
if ($et->Options("MakerNotes") or $et->{'REQ_TAG_LOOKUP'}{lc $tagInfo->{'Name'}}) |
|
793
|
0 |
0 |
if ($tagInfo->{'MakerNotes'}) { } |
|
800
|
0 |
0 |
if (not defined $val and $dirLen > 4) |
|
805
|
0 |
0 |
unless $tagInfo->{'Writable'} |
|
807
|
0 |
0 |
unless defined $val |
|
809
|
0 |
0 |
if ($et->{'MAKER_NOTE_FIXUP'}) |
|
825
|
9 |
2 |
unless $et |
|
829
|
0 |
2 |
unless &$proc($et, $dirInfo, $tagTablePtr) |