| line |
true |
false |
branch |
|
178
|
0 |
7 |
unless $raf->Read($buff, 6) == 6 and $buff =~ /^GIF(8[79]a)$/ and $raf->Read($s, 7) == 7 |
|
187
|
3 |
4 |
if ($outfile) { } |
|
193
|
3 |
0 |
if $nvComment or $delGroup->{'File'} |
|
195
|
0 |
0 |
if $addDirs->{'XMP'} or $addDirs->{'ICC_Profile'} or defined $newComment |
|
196
|
0 |
3 |
unless &Write($outfile, $buff, $s) |
|
203
|
7 |
0 |
if ($flags & 128) |
|
206
|
0 |
7 |
unless $raf->Read($buff, $length) == $length |
|
207
|
3 |
4 |
if $outfile |
|
214
|
0 |
33 |
unless $raf->Read($ch, 1) |
|
216
|
6 |
27 |
if ($outfile and ord $ch != 33) |
|
218
|
0 |
0 |
if (defined $newComment and $nvComment->{'IsCreating'}) |
|
220
|
0 |
0 |
unless &Write($outfile, "!\376") |
|
221
|
0 |
0 |
if $verbose |
|
228
|
0 |
0 |
if $size > 255 |
|
230
|
0 |
0 |
unless &Write($outfile, pack("C", $size), $str) |
|
232
|
0 |
0 |
unless &Write($outfile, "\0") |
|
239
|
0 |
6 |
if (exists $addDirs->{'XMP'} and not defined $doneDir{'XMP'}) |
|
244
|
0 |
0 |
if $verbose |
|
246
|
0 |
0 |
if (defined $buff and length $buff) { } |
|
248
|
0 |
0 |
unless &Write($outfile, "!\377\13XMP DataXMP", $buff, $lz) |
|
251
|
0 |
0 |
if $verbose |
|
255
|
1 |
5 |
if (exists $addDirs->{'ICC_Profile'} and not defined $doneDir{'ICC_Profile'}) |
|
260
|
0 |
1 |
if $verbose |
|
262
|
1 |
0 |
if (defined $buff and length $buff) { } |
|
264
|
0 |
1 |
unless &Write($outfile, "!\377\13ICCRGBG1012") |
|
268
|
1 |
1 |
if $n > 255 |
|
269
|
0 |
2 |
unless &Write($outfile, chr $n, substr($buff, $pos, $n)) |
|
272
|
0 |
1 |
unless &Write($outfile, "\0") |
|
275
|
0 |
0 |
if $verbose |
|
279
|
7 |
26 |
if (ord $ch == 44) |
|
281
|
3 |
4 |
if $outfile |
|
283
|
0 |
7 |
unless $raf->Read($buff, 8) == 8 and $raf->Read($ch, 1) |
|
284
|
3 |
4 |
if $outfile |
|
285
|
0 |
7 |
if ($verbose) |
|
289
|
0 |
7 |
if (ord $ch & 128) |
|
292
|
0 |
0 |
unless $raf->Read($buff, $length) == $length |
|
293
|
0 |
0 |
if $outfile |
|
296
|
0 |
7 |
unless $raf->Read($buff, 1) |
|
297
|
3 |
4 |
if $outfile |
|
300
|
0 |
14 |
unless $raf->Read($ch, 1) |
|
301
|
6 |
8 |
if $outfile |
|
302
|
7 |
7 |
unless ord $ch |
|
303
|
0 |
7 |
unless $raf->Read($buff, ord $ch) |
|
304
|
3 |
4 |
if $outfile |
|
309
|
7 |
19 |
unless (ord $ch == 33) |
|
310
|
3 |
4 |
if ($outfile) |
|
311
|
0 |
3 |
unless &Write($outfile, $ch) |
|
314
|
0 |
0 |
unless &Write($outfile, $buff) |
|
321
|
0 |
19 |
unless $raf->Read($s, 2) == 2 |
|
325
|
7 |
12 |
if ($a == 254) { } |
|
|
12 |
0 |
elsif ($a == 255 and $length == 11) { } |
|
|
0 |
0 |
elsif ($a == 249 and $length == 4) { } |
|
|
0 |
0 |
elsif ($a == 1 and $length == 12) { } |
|
329
|
0 |
10 |
unless $raf->Read($buff, $length) == $length |
|
330
|
6 |
4 |
unless $outfile |
|
333
|
0 |
10 |
unless $raf->Read($ch, 1) |
|
336
|
0 |
7 |
if $length |
|
337
|
3 |
4 |
if ($outfile) { } |
|
339
|
3 |
0 |
if ($setComment) |
|
340
|
3 |
0 |
if ($nvComment) { } |
|
343
|
3 |
0 |
if defined $newComment |
|
349
|
3 |
0 |
if ($isOverwriting) { } |
|
353
|
3 |
0 |
if defined $comment |
|
358
|
3 |
0 |
if (defined $comment) |
|
360
|
0 |
3 |
unless &Write($outfile, "!\376") |
|
367
|
1 |
3 |
if $size > 255 |
|
369
|
0 |
4 |
unless &Write($outfile, pack("C", $size), $str) |
|
371
|
0 |
3 |
unless &Write($outfile, "\0") |
|
376
|
4 |
0 |
if $comment |
|
379
|
0 |
4 |
if $et->Options("FastScan") |
|
385
|
0 |
12 |
unless $raf->Read($buff, $length) == $length |
|
390
|
0 |
12 |
if $verbose |
|
395
|
12 |
0 |
if ($extInfo) { } |
|
399
|
0 |
12 |
if $outfile and not $subdir && $extInfo->{'Writable'} |
|
401
|
0 |
0 |
if $outfile |
|
403
|
0 |
12 |
if $justCopy |
|
408
|
0 |
378 |
unless $raf->Read($ch, 1) |
|
409
|
12 |
366 |
unless $length = ord $ch |
|
410
|
0 |
366 |
unless $raf->Read($buff, $length) == $length |
|
411
|
0 |
366 |
if $justCopy |
|
412
|
356 |
10 |
$inclLen ? : |
|
414
|
0 |
12 |
if $justCopy |
|
416
|
12 |
0 |
if ($subdir) { } |
|
|
0 |
0 |
elsif (not $outfile) { } |
|
419
|
7 |
5 |
if ($name eq "XMP") |
|
422
|
7 |
0 |
if $dat =~ /<\?xpacket end=['"][wr]['"]\?>/g |
|
432
|
7 |
5 |
if (not $outfile) { } |
|
|
5 |
0 |
elsif ($extInfo->{'Writable'}) { } |
|
435
|
0 |
5 |
if ($doneDir{$name} and $doneDir{$name} > 1) |
|
439
|
4 |
1 |
if (defined $buff) |
|
440
|
1 |
3 |
unless length $buff |
|
442
|
0 |
3 |
if $buff =~ /\0/ |
|
445
|
3 |
0 |
if $extInfo->{'IncludeLengthBytes'} |
|
450
|
3 |
1 |
if ($extInfo->{'IncludeLengthBytes'}) { } |
|
452
|
0 |
3 |
unless &Write($outfile, $hdr, $dat) |
|
455
|
0 |
1 |
unless &Write($outfile, $hdr) |
|
460
|
1 |
1 |
if $n > 255 |
|
461
|
0 |
2 |
unless &Write($outfile, chr $n, substr($dat, $pos, $n)) |
|
465
|
0 |
4 |
unless &Write($outfile, "\0") |
|
474
|
0 |
0 |
unless $raf->Read($buff, $length) == $length |
|
478
|
0 |
0 |
if $verbose |
|
481
|
0 |
0 |
if $bits & 1 |
|
482
|
0 |
0 |
unless $raf->Seek(-$length, 1) |
|
486
|
0 |
0 |
unless $raf->Read($buff, $length) == $length |
|
487
|
0 |
0 |
if $outfile |
|
488
|
0 |
0 |
if ($verbose) |
|
494
|
0 |
0 |
unless $raf->Read($ch, 1) |
|
495
|
0 |
0 |
unless $length = ord $ch |
|
496
|
0 |
0 |
unless $raf->Read($buff, $length) == $length |
|
497
|
0 |
0 |
if $outfile |
|
500
|
0 |
0 |
if $outfile |
|
504
|
0 |
0 |
if $outfile |
|
507
|
0 |
0 |
unless $raf->Read($buff, $length) == $length |
|
508
|
0 |
0 |
if $outfile |
|
509
|
0 |
0 |
unless $raf->Read($ch, 1) |
|
510
|
0 |
0 |
if $outfile |
|
514
|
4 |
3 |
unless ($outfile) |
|
515
|
0 |
4 |
if $frameCount > 1 |
|
516
|
0 |
4 |
if $delayTime |
|
520
|
0 |
7 |
if $rtnVal and $err |