| line |
true |
false |
branch |
|
93
|
0 |
0 |
if /^(--create)$/ |
|
94
|
0 |
0 |
if /^(-a|--append)$/ |
|
95
|
0 |
0 |
if /^(-l|--list)$/ |
|
96
|
0 |
0 |
if /^(-x|--extract)$/ |
|
97
|
0 |
0 |
if /^(--ipl)$/ |
|
98
|
0 |
0 |
if /^(--ipl-address)$/ |
|
99
|
0 |
0 |
if /^-/ |
|
100
|
0 |
0 |
unless defined $file |
|
101
|
0 |
0 |
unless @cmd |
|
105
|
0 |
0 |
unless defined $file |
|
131
|
0 |
0 |
exit $msg ? : |
|
141
|
0 |
0 |
$$opts{'create'} ? : |
|
143
|
0 |
0 |
unless $file |
|
145
|
0 |
0 |
unless open my $fh, $mode, $file |
|
148
|
0 |
0 |
if ($$opts{'create'}) |
|
201
|
0 |
0 |
unless seek $fh, 0, $SEEK_SET |
|
205
|
0 |
0 |
unless seek $fh, 512, $SEEK_SET |
|
208
|
0 |
0 |
unless seek $fh, 5120, $SEEK_SET |
|
220
|
0 |
0 |
unless seek $$this{'handle'}, 0, $SEEK_SET |
|
222
|
0 |
0 |
unless defined $read_len |
|
223
|
0 |
0 |
if $read_len != 62 |
|
245
|
0 |
0 |
$is_dir ? : |
|
247
|
0 |
0 |
!$is_readonly ? : |
|
256
|
0 |
0 |
$$dirent{'extension'} ne '' ? : |
|
267
|
0 |
0 |
unless my $cb = shift() |
|
271
|
0 |
0 |
unless seek $$this{'handle'}, $pos * 512, $SEEK_SET |
|
275
|
0 |
0 |
unless defined $read_len |
|
276
|
0 |
0 |
if $read_len != 32 |
|
279
|
0 |
0 |
if $dirent{'attribute'} == 15 |
|
280
|
0 |
0 |
if $dirent{'basename'} =~ /^\0/ |
|
281
|
0 |
0 |
unless $dirent{'basename'} =~ /[^ ]/ |
|
293
|
0 |
0 |
unless defined $file |
|
299
|
0 |
0 |
if $$dirent{'extension'} ne '' |
|
301
|
0 |
0 |
if $got eq $file_uc |
|
304
|
0 |
0 |
unless ($found) |
|
322
|
0 |
0 |
if ($cluster <= 1 or $cluster >= $ENDMARK) |
|
327
|
0 |
0 |
unless seek $$this{'handle'}, ($basesect + $cluster - 2) * 512, $SEEK_SET |
|
329
|
0 |
0 |
unless defined $read_len |
|
330
|
0 |
0 |
if $read_len != 512 |
|
336
|
0 |
0 |
unless seek $$this{'handle'}, ($fatsect + int($offset / 512)) * 512, $SEEK_SET |
|
338
|
0 |
0 |
unless defined $read_len |
|
339
|
0 |
0 |
if $read_len != 512 |
|
343
|
0 |
0 |
if $odd |
|
350
|
0 |
0 |
unless open my $fh, '>', $file |
|
363
|
0 |
0 |
unless defined $file |
|
364
|
0 |
0 |
unless $file =~ /^(\w{1,8})(?:\.\w{1,3})$/ |
|
369
|
0 |
0 |
unless open my $fh, '<', $file |
|
387
|
0 |
0 |
if $DEBUG |
|
388
|
0 |
0 |
unless seek $$this{'handle'}, $$system{'reserved_sectors'} * 512, $SEEK_SET |
|
391
|
0 |
0 |
if (length $table < 2) |
|
394
|
0 |
0 |
unless defined $read_len |
|
395
|
0 |
0 |
if $read_len != 512 |
|
396
|
0 |
0 |
if $i == 2 |
|
401
|
0 |
0 |
if ($i & 1) { } |
|
410
|
0 |
0 |
if $DEBUG |
|
411
|
0 |
0 |
unless $cluster == 0 |
|
413
|
0 |
0 |
if @spaces * 512 >= length $data |
|
415
|
0 |
0 |
if (@spaces * 512 < length $data) |
|
425
|
0 |
0 |
unless seek $$this{'handle'}, $sect * 512, $SEEK_SET |
|
430
|
0 |
0 |
unless defined $read_len |
|
431
|
0 |
0 |
if $read_len != 32 |
|
434
|
0 |
0 |
if $dirent{'attribute'} == 15 |
|
435
|
0 |
0 |
if $dirent{'basename'} eq '' |
|
436
|
0 |
0 |
if $dirent{'basename'} =~ /^\0/ |
|
437
|
0 |
0 |
if $dirent{'basename'} =~ /^\xe5/ |
|
438
|
0 |
0 |
if $dirent{'basename'} =~ /^\x05/ |
|
439
|
0 |
0 |
unless $dirent{'basename'} =~ /[^ ]/ |
|
442
|
0 |
0 |
if $dirent{'extension'} ne '' |
|
444
|
0 |
0 |
if ($got eq $file_uc) |
|
450
|
0 |
0 |
unless (defined $space or $newentry) |
|
462
|
0 |
0 |
unless seek $$this{'handle'}, ($basesect + $spaces[$i] - 2) * 512, $SEEK_SET |
|
469
|
0 |
0 |
unless seek $$this{'handle'}, $fatsect * 512, $SEEK_SET |
|
471
|
0 |
0 |
unless defined $read_len |
|
472
|
0 |
0 |
if $read_len != 512 * $$system{'fat_size'} |
|
479
|
0 |
0 |
$i == $#spaces ? : |
|
480
|
0 |
0 |
if (not $odd) { } |
|
491
|
0 |
0 |
unless seek $$this{'handle'}, $fatsect * 512, $SEEK_SET |
|
496
|
0 |
0 |
if ($newentry) { } |
|
499
|
0 |
0 |
unless seek $$this{'handle'}, -32, $SEEK_CUR |
|
507
|
0 |
0 |
unless seek $$this{'handle'}, $pos, $SEEK_SET |
|
510
|
0 |
0 |
defined $ext ? : |
|
529
|
0 |
0 |
unless length $de == 32 |
|
544
|
0 |
0 |
if (defined $addr) { } |
|
546
|
0 |
0 |
if $addr =~ /^0x([0-9a-fA-F]+)$/ |
|
547
|
0 |
0 |
unless $addr =~ /^(\d+$)/ |
|
548
|
0 |
0 |
if $addr >= 254 |
|
565
|
0 |
0 |
if (defined $file) { } |
|
567
|
0 |
0 |
unless open my $fh, '<', $file |
|
572
|
0 |
0 |
if $$this{'ipl_address'} + $size >= 254 |
|
573
|
0 |
0 |
unless seek $$this{'handle'}, $$this{'ipl_address'}, $SEEK_SET |
|
579
|
0 |
0 |
unless seek $$this{'handle'}, $$this{'ipl_address'}, $SEEK_SET |
|
581
|
0 |
0 |
unless defined $read_len |
|
582
|
0 |
0 |
if $read_len != $size |