| line |
true |
false |
branch |
|
34
|
0 |
0 |
if ($on) { } |
|
56
|
0 |
0 |
if ($DRY_RUN) |
|
58
|
0 |
0 |
if $DRY_RUN |
|
61
|
0 |
0 |
if ($CONFIRM) |
|
63
|
0 |
0 |
if ($answer =~ /^\s*y\s*$/) |
|
107
|
0 |
0 |
if (exists $tags{':all'}) |
|
112
|
0 |
0 |
unless exists $EXPORTABLE{$func} |
|
196
|
0 |
0 |
unless _confirm("cp $_[0] $_[1]") |
|
200
|
0 |
0 |
unless File::Copy::copy(@_) |
|
219
|
0 |
0 |
unless _confirm("mv $_[0] $_[1]") |
|
223
|
0 |
0 |
unless File::Copy::move(@_) |
|
246
|
0 |
0 |
unless _confirm("Downloading $url => ", basename($url)) |
|
257
|
0 |
0 |
if ($rc != HTTP::Status::RC_OK()) |
|
291
|
0 |
0 |
unless @_ == 1 and defined $_[0] |
|
294
|
0 |
0 |
unless _confirm("untar $_[0]") |
|
304
|
0 |
0 |
if ($nice and $topdir eq $namedir) { } |
|
|
0 |
0 |
elsif ($nice) { } |
|
311
|
0 |
0 |
unless rename $topdir, $namedir |
|
314
|
0 |
0 |
unless defined $topdir |
|
323
|
0 |
0 |
unless (@extracted) |
|
347
|
0 |
0 |
unless defined $tar_file and defined $dir |
|
350
|
0 |
0 |
unless _confirm("Untarring $tar_file in $dir") |
|
352
|
0 |
0 |
unless -d $dir |
|
361
|
0 |
0 |
unless $arch->extract |
|
408
|
0 |
0 |
if (@_ < 3 or ref $options ne 'ARRAY') |
|
419
|
0 |
0 |
if $count eq $default |
|
426
|
0 |
0 |
unless defined $input and length $input |
|
428
|
0 |
0 |
if not $input =~ /^\d+$/ or $input == 0 or $input > scalar @$options |
|
452
|
0 |
0 |
unless defined $opts |
|
457
|
0 |
0 |
if (@_ < 2) |
|
462
|
0 |
0 |
if $value eq '' |
|
472
|
0 |
0 |
unless defined $opts |
|
475
|
0 |
0 |
if ($$opts{'tty'}) |
|
476
|
0 |
0 |
unless open $fh, '<', '/dev/tty' |
|
480
|
0 |
0 |
unless print STDERR $prompt |
|
484
|
0 |
0 |
if defined $input |
|
504
|
0 |
0 |
unless _confirm("mkd @_") |
|
508
|
0 |
0 |
unless mkpath(@_) |
|
528
|
0 |
0 |
unless _confirm("rmf $_[0]") |
|
530
|
0 |
0 |
unless (-e $_[0]) |
|
537
|
0 |
0 |
unless rmtree($_[0]) |
|
563
|
0 |
0 |
if ref $_[1] eq 'HASH' |
|
565
|
0 |
0 |
if ($$opts{'stack_update'}) |
|
567
|
0 |
0 |
unless (defined $cwd) |
|
573
|
0 |
0 |
unless chdir $_[0] |
|
596
|
0 |
0 |
unless defined $opts |
|
601
|
0 |
0 |
unless @DIR_STACK |
|
603
|
0 |
0 |
if ($$opts{'reset'}) |
|
609
|
0 |
0 |
unless defined $old_dir |
|
631
|
0 |
0 |
unless _confirm("make @_") |
|
635
|
0 |
0 |
if system "make @_" |
|
648
|
0 |
0 |
if ($tar_file =~ /\.tar\.gz\b|\.tgz\b/ and not Log::Log4perl::Util::module_available('IO::Zlib')) |
|
668
|
0 |
0 |
unless defined $dir |
|
682
|
0 |
0 |
unless @names |
|
689
|
0 |
0 |
if $name eq './' |
|
692
|
0 |
0 |
if ($topdir ne $archdir) |
|
733
|
0 |
0 |
if (defined $files[-1] and ref $files[-1] eq 'HASH') |
|
743
|
0 |
0 |
unless _confirm("editing $file in-place") |
|
747
|
0 |
0 |
unless open FILE, "<$file" |
|
750
|
0 |
0 |
if ($$options{'utf8'}) |
|
791
|
0 |
0 |
if (defined $files[-1] and ref $files[-1] eq 'HASH') |
|
801
|
0 |
0 |
unless _confirm("Ploughing through $file") |
|
805
|
0 |
0 |
unless open FILE, "<$file" |
|
808
|
0 |
0 |
if ($$options{'utf8'}) |
|
839
|
0 |
0 |
unless defined $options |
|
850
|
0 |
0 |
if ($from_file) { } |
|
852
|
0 |
0 |
unless open FILE, "<$file" |
|
855
|
0 |
0 |
if (exists $$options{'utf8'}) |
|
890
|
0 |
0 |
if (defined $options and ref $options eq '') |
|
894
|
0 |
0 |
unless defined $options |
|
899
|
0 |
0 |
unless defined $$options{'append'} |
|
901
|
0 |
0 |
$$options{'append'} ? : |
|
|
0 |
0 |
unless _confirm(($$options{'append'} ? 'Appending' : 'Writing') . ' ' . length($data) . " bytes to $file") |
|
904
|
0 |
0 |
$$options{'append'} ? : |
|
|
0 |
0 |
unless open FILE, '>' . ($$options{'append'} ? '>' : '') . $file |
|
910
|
0 |
0 |
if ($$options{'utf8'}) |
|
914
|
0 |
0 |
unless print FILE $data |
|
917
|
0 |
0 |
unless close FILE |
|
945
|
0 |
0 |
unless _confirm('Writing atomically ' . length($data) . " bytes to $file") |
|
948
|
0 |
0 |
unless defined $options |
|
956
|
0 |
0 |
unless rename $tmpname, $file |
|
1028
|
0 |
0 |
if (defined $args[-1] and ref $args[-1] eq 'HASH') |
|
1036
|
0 |
0 |
unless _confirm("tapping @args") |
|
1040
|
0 |
0 |
if ref $args[0] eq 'HASH' |
|
1049
|
0 |
0 |
if ($$opts{'no_quotes'}) { } |
|
|
0 |
0 |
elsif ($$opts{'double_quotes'}) { } |
|
1061
|
0 |
0 |
unless open PIPE, $cmd |
|
1064
|
0 |
0 |
if ($$options{'utf8'}) |
|
1075
|
0 |
0 |
if ($$opts{'stderr_limit'}) |
|
1079
|
0 |
0 |
if ($exit_code != 0 and $$opts{'raise_error'}) |
|
1083
|
0 |
0 |
if ($$opts{'stdout_limit'}) |
|
1177
|
0 |
0 |
if (defined $metas) |
|
1178
|
0 |
0 |
if $metas eq ':shell' |
|
1229
|
0 |
0 |
if (defined $metas and $metas eq ':shell') { } |
|
1236
|
0 |
0 |
if (defined $metas and $metas ne ':shell') |
|
1262
|
0 |
0 |
unless _confirm("perm_cp @_") |
|
1264
|
0 |
0 |
if @_ < 2 |
|
1296
|
0 |
0 |
unless _confirm("owner_cp @_") |
|
1298
|
0 |
0 |
if @_ < 2 |
|
1302
|
0 |
0 |
unless (defined $uid and defined $gid) |
|
1307
|
0 |
0 |
unless (chown $uid, $gid, @dst) |
|
1333
|
0 |
0 |
unless my(@stats) = (stat $filename)[2, 4, 5] |
|
1360
|
0 |
0 |
unless _confirm("perm_set $filename (@$perms)") |
|
1362
|
0 |
0 |
unless chown $$perms[1], $$perms[2], $filename |
|
1365
|
0 |
0 |
unless chmod $$perms[0] & 4095, $filename |
|
1388
|
0 |
0 |
unless _confirm("sysrun: @cmds") |
|
1390
|
0 |
0 |
if @_ < 1 |
|
1392
|
0 |
0 |
if system @cmds |
|
1415
|
0 |
0 |
unless _confirm("Hammer: @cmds") |
|
1464
|
0 |
0 |
unless _confirm('sudo_me') |
|
1466
|
0 |
0 |
unless $argv |
|
1470
|
0 |
0 |
if ($> != 0) |
|
1473
|
0 |
0 |
unless $sudo |
|
1474
|
0 |
0 |
unless exec $sudo, $0, @$argv |
|
1516
|
0 |
0 |
unless defined $options |
|
1522
|
0 |
0 |
unless defined $find |
|
1525
|
0 |
0 |
unless defined $cpio |
|
1532
|
0 |
0 |
unless open my $in, "$cmd |" |
|
1535
|
0 |
0 |
if $$options{'utf8'} |
|
1560
|
0 |
0 |
unless defined $options |
|
1566
|
0 |
0 |
unless defined $cpio |
|
1568
|
0 |
0 |
unless -d $dir |
|
1575
|
0 |
0 |
unless open my $out, "| $cmd" |
|
1578
|
0 |
0 |
if $$options{'utf8'} |
|
1609
|
0 |
0 |
unless (defined syswrite($out, $buf)) |
|
1613
|
0 |
0 |
unless (defined $ret) |
|
1647
|
0 |
0 |
if (length $data <= $maxlen) |
|
1651
|
0 |
0 |
if $maxlen < 12 |