line |
true |
false |
branch |
691
|
0 |
0 |
if $i + $n >= $len |
692
|
0 |
0 |
if $i |
712
|
0 |
4 |
unless $fileType eq "PSD" or $fileType eq "PSB" |
715
|
0 |
4 |
$fileType eq 'PSB' ? : |
719
|
0 |
4 |
unless $raf->Read($data, $n) == $n |
720
|
0 |
4 |
$psb ? : |
721
|
0 |
4 |
if $tot == 0 |
724
|
0 |
4 |
$psb ? : |
727
|
4 |
0 |
if ($len == 0 and $num == 0) |
728
|
0 |
4 |
unless $raf->Read($data, 10) == 10 |
729
|
0 |
4 |
if ($data =~ /^..8BIMLr16/s) { } |
|
0 |
4 |
elsif ($data =~ /^..8BIMMt16/s) { } |
730
|
0 |
0 |
unless $raf->Read($data, $psiz + 2) == $psiz + 2 |
731
|
0 |
0 |
$psb ? : |
733
|
0 |
0 |
unless $raf->Read($data, $psiz) == $psiz |
734
|
0 |
0 |
unless $raf->Read($data, 8) == 8 |
735
|
0 |
0 |
if ($data eq '8BIMLr16') { } |
736
|
0 |
0 |
unless $raf->Read($data, $psiz + 2) == $psiz + 2 |
737
|
0 |
0 |
$psb ? : |
739
|
0 |
0 |
unless $raf->Seek(-18 - $psiz, 1) |
742
|
0 |
4 |
unless $raf->Seek(-10, 1) |
746
|
0 |
4 |
unless $raf->Seek(-2, 1) |
755
|
4 |
0 |
$raf->Seek($end, 0) ? : |
773
|
0 |
4 |
if $dirLen < 2 |
774
|
0 |
4 |
unless $raf->Read($buff, 2) == 2 |
776
|
0 |
4 |
if $num < 0 |
783
|
0 |
4 |
$psb ? : |
786
|
0 |
0 |
if $pos + 18 > $dirLen |
787
|
0 |
0 |
unless $raf->Read($buff, 18) == 18 |
793
|
0 |
0 |
unless $raf->Seek($n, 1) |
795
|
0 |
0 |
if $pos + 20 > $dirLen |
796
|
0 |
0 |
unless $raf->Read($buff, 20) == 20 |
799
|
0 |
0 |
unless $sig =~ /^(8BIM|MIB8)$/ |
806
|
0 |
0 |
if $pos + 4 > $dirLen |
807
|
0 |
0 |
unless $raf->Seek($n, 1) and $raf->Read($buff, 4) == 4 |
810
|
0 |
0 |
if $pos + 1 > $dirLen |
811
|
0 |
0 |
unless $raf->Seek($n, 1) and $raf->Read($buff, 1) == 1 |
813
|
0 |
0 |
if $pos + 1 + $n > $dirLen |
814
|
0 |
0 |
unless $raf->Read($buff, $n) == $n |
818
|
0 |
0 |
if $frag |
823
|
0 |
0 |
unless $raf->Read($buff, 12) == 12 |
825
|
0 |
0 |
if &GetByteOrder() eq "II" |
827
|
0 |
0 |
unless $sig eq "8BIM" or $sig eq "8B64" |
832
|
0 |
0 |
if ($psb and $tag =~ /^(LMsk|Lr16|Lr32|Layr|Mt16|Mt32|Mtrn|Alph|FMsk|lnk2|FEid|FXid|PxSD)$/) { } |
833
|
0 |
0 |
if $pos + 16 > $nxt |
834
|
0 |
0 |
unless $raf->Read($buf2, 4) == 4 |
842
|
0 |
0 |
if $pos + $n > $nxt |
844
|
0 |
0 |
if ($tagTablePtr->{$tag} or $verbose) { } |
846
|
0 |
0 |
unless defined $count{$tag} |
847
|
0 |
0 |
unless $raf->Read($buff, $n) == $n |
850
|
0 |
0 |
$tag eq 'lsct' ? : |
855
|
0 |
0 |
if ($frag) |
856
|
0 |
0 |
unless $raf->Seek(4 - $frag, 1) |
860
|
0 |
0 |
if $frag |
861
|
0 |
0 |
unless $raf->Seek($n, 1) |
870
|
0 |
0 |
$_ eq 'lsct' ? : |
892
|
0 |
0 |
unless ($raf) |
896
|
0 |
0 |
if $start |
897
|
0 |
0 |
unless defined $dirLen |
900
|
0 |
0 |
unless ($raf->Read($buff, $pos) == $pos and $buff =~ /^Adobe Photoshop Document Data (Block|V0002)\0/) |
910
|
0 |
0 |
unless $raf->Read($buff, 8) == 8 |
912
|
0 |
0 |
$buff =~ /^(8BIM|8B64)/ ? : |
|
0 |
0 |
if $pos == 36 |
913
|
0 |
0 |
if &GetByteOrder() eq "II" |
915
|
0 |
0 |
unless $sig eq "8BIM" or $sig eq "8B64" |
917
|
0 |
0 |
if ($psb and $tag =~ /^(LMsk|Lr16|Lr32|Layr|Mt16|Mt32|Mtrn|Alph|FMsk|lnk2|FEid|FXid|PxSD)$/) { } |
918
|
0 |
0 |
if $pos + 16 > $dirLen |
919
|
0 |
0 |
unless $raf->Read($buff, 8) == 8 |
923
|
0 |
0 |
unless $raf->Read($buff, 4) == 4 |
927
|
0 |
0 |
if $pos + $n > $dirLen |
930
|
0 |
0 |
if ($tagInfo or $verbose) { } |
931
|
0 |
0 |
if ($tagInfo and $tagInfo->{'SubDirectory'}) { } |
935
|
0 |
0 |
unless $raf->Seek($fpos, 0) |
940
|
0 |
0 |
unless $raf->Read($buff, $n) == $n |
942
|
0 |
0 |
unless $raf->Seek($pad, 1) |
945
|
0 |
0 |
unless $raf->Seek($n + $pad, 1) |
949
|
0 |
0 |
if $err |
968
|
5 |
88 |
if ($Image::ExifTool::MWG::strict || $et->Options('Validate') and $et->{'FILE_TYPE'} =~ /^(JPEG|TIFF|PSD)$/) |
972
|
0 |
5 |
unless ($path =~ /^(JPEG-APP13-Photoshop|TIFF-IFD0-Photoshop|PSD)$/) |
973
|
0 |
0 |
if ($Image::ExifTool::MWG::strict) { } |
981
|
0 |
93 |
if ($et->{'FILE_TYPE'} eq "JPEG" and $dirInfo->{'Parent'} ne "APP13") |
985
|
0 |
93 |
if $verbose |
996
|
1182 |
0 |
if ($type eq '8BIM') { } |
|
0 |
0 |
elsif ($type =~ /^(PHUT|DCSR|AgHg|MeSa)$/) { } |
1011
|
1182 |
0 |
unless $nameLen & 1 |
1012
|
0 |
1182 |
if ($pos + 4 > $dirEnd) |
1018
|
0 |
1182 |
if ($size + $pos > $dirEnd) |
1023
|
0 |
1182 |
if ($nameLen) { } |
1031
|
0 |
0 |
if ($tagInfo and defined $tagInfo->{'SetResourceName'} and $tagInfo->{'SetResourceName'} eq 1 and not $name =~ m[/#]) |
1046
|
388 |
794 |
if $size & 1 |
1050
|
32 |
28 |
if ($et->{'VALUE'}{'IPTCDigest'} and $et->{'VALUE'}{'CurrentIPTCDigest'} and $et->{'VALUE'}{'IPTCDigest'} ne $et->{'VALUE'}{'CurrentIPTCDigest'}) |
1070
|
0 |
5 |
unless $raf->Read($data, 30) == 30 |
1071
|
0 |
5 |
unless $data =~ /^8BPS\0([\x01\x02])/ |
1073
|
5 |
0 |
$1 eq "\cA" ? : |
1080
|
1 |
4 |
if ($outfile) { } |
1081
|
0 |
1 |
unless &Write($outfile, $data) |
1082
|
0 |
1 |
unless $raf->Read($data, $len) == $len |
1083
|
0 |
1 |
unless &Write($outfile, $data) |
1091
|
0 |
4 |
unless $raf->Seek($len, 1) |
1094
|
0 |
5 |
unless $raf->Read($data, 4) == 4 |
1096
|
0 |
5 |
unless $raf->Read($data, $len) == $len |
1100
|
1 |
4 |
if ($outfile) { } |
|
0 |
4 |
elsif ($err) { } |
1103
|
1 |
0 |
if ($data) { } |
1105
|
0 |
1 |
unless &Write($outfile, $len, $data) |
1108
|
1 |
0 |
if ($trailInfo) |
1112
|
1 |
0 |
if ($et->ProcessTrailers($trailInfo)) { } |
1114
|
1 |
0 |
if ($copyBytes >= 0) { } |
1117
|
0 |
1 |
$copyBytes > 65536 ? : |
1118
|
0 |
1 |
unless $raf->Read($data, $n) == $n |
1119
|
0 |
1 |
unless &Write($outfile, $data) |
1123
|
0 |
1 |
unless $et->WriteTrailerBuffer($trailInfo, $outfile) |
1132
|
0 |
1 |
unless ($trailInfo) |
1135
|
0 |
0 |
unless &Write($outfile, $data) |
1141
|
0 |
1 |
if $err |
1152
|
4 |
0 |
if (&ProcessLayersAndMask($et, \%dirInfo, $tagTablePtr) and $raf->Read($data, 2) == 2) |
1166
|
4 |
0 |
if $trailInfo |