| line |
true |
false |
branch |
|
504
|
0 |
2 |
if $pos >= length $$dataPt |
|
506
|
0 |
2 |
$unicode ? : |
|
|
2 |
0 |
if $unicode ? $$dataPt =~ /\G((?:..)*?)\0\0/gs : $$dataPt =~ /\G(.*?)\0/gs |
|
526
|
1 |
1 |
if $pos + 4 >= $dataLen |
|
528
|
0 |
1 |
if $size < 2 or $pos + $size > $dataLen |
|
533
|
0 |
1 |
unless $tagTablePtr->{$tag} |
|
548
|
0 |
1 |
if $dataLen < 32 |
|
558
|
1 |
0 |
if ($lif & 1) |
|
561
|
1 |
0 |
if ($off and $off + 32 <= $dataLen) |
|
566
|
0 |
1 |
if ($pos == 20) |
|
573
|
1 |
0 |
if (defined $val) |
|
575
|
0 |
1 |
if $unicode |
|
580
|
0 |
1 |
if ($hdrLen >= 36) { } |
|
588
|
1 |
0 |
if (defined $val) |
|
590
|
0 |
1 |
if $unicode |
|
594
|
0 |
1 |
if ($lif & 2) |
|
597
|
0 |
0 |
if ($off and $off + 20 <= $dataLen) |
|
599
|
0 |
0 |
if $off + $siz > $dataLen |
|
601
|
0 |
0 |
if ($pos > 20 and $siz >= 24) { } |
|
608
|
0 |
0 |
if (defined $val) |
|
610
|
0 |
0 |
if $unicode |
|
614
|
0 |
0 |
if ($flg & 1) |
|
616
|
0 |
0 |
if ($pos > 20 and $siz >= 28) { } |
|
623
|
0 |
0 |
if (defined $val) |
|
625
|
0 |
0 |
if $unicode |
|
629
|
0 |
0 |
if ($flg & 2) |
|
650
|
1 |
13 |
if ($buff =~ /^\[(.*?)\]/) { } |
|
|
13 |
0 |
elsif ($buff =~ /^\s*(\w+)=(.*)\x0d\x0a$/) { } |
|
670
|
0 |
2 |
unless $raf->Read($buff, 76) == 76 |
|
671
|
1 |
1 |
unless ($buff =~ /^.{4}\x01\x14\x02\0{5}\xc0\0{6}\x46/s) |
|
673
|
0 |
1 |
unless $buff =~ /^\[[InternetShortcut\][\x0d\x0a]/ |
|
674
|
0 |
1 |
unless $raf->Seek(0, 0) |
|
679
|
0 |
1 |
unless $len >= 76 |
|
680
|
0 |
1 |
if ($len > 76) |
|
681
|
0 |
0 |
unless $raf->Read($buf2, $len - 76) == $len - 76 |
|
699
|
1 |
0 |
if ($flags & 1) |
|
700
|
0 |
1 |
unless $raf->Read($buff, 2) |
|
702
|
0 |
1 |
unless $raf->Read($buff, $len) == $len |
|
711
|
1 |
0 |
if ($flags & 2) |
|
712
|
0 |
1 |
unless $raf->Read($buff, 4) |
|
714
|
0 |
1 |
if $len < 4 |
|
715
|
0 |
1 |
unless $raf->Read($buf2, $len - 4) == $len - 4 |
|
730
|
1 |
4 |
unless $flags & $mask |
|
731
|
0 |
4 |
unless $raf->Read($buff, 2) |
|
733
|
0 |
4 |
unless $len = unpack("v", $buff) |
|
736
|
0 |
4 |
if ($i != 3 and $len >= 260) |
|
738
|
0 |
0 |
if ($len > 260) |
|
743
|
4 |
0 |
if $flags & 128 |
|
744
|
0 |
4 |
unless $raf->Read($buff, $len) |
|
746
|
0 |
4 |
if ($limit) |
|
747
|
0 |
0 |
$flags & 128 ? : |
|
750
|
4 |
0 |
if $flags & 128 |
|
761
|
1 |
2 |
if $len < 4 |
|
763
|
0 |
2 |
unless $raf->Read($buf2, $len) == $len |
|
764
|
0 |
2 |
unless $len > 4 |
|
768
|
0 |
2 |
unless (ref $tagInfo eq "HASH" and $tagInfo->{'SubDirectory'}) |