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 |