| line |
true |
false |
branch |
|
20
|
1 |
6 |
if @_ > 1 |
|
21
|
5 |
1 |
@_ ? : |
|
24
|
1 |
5 |
if (not -e $dst) { } |
|
25
|
0 |
1 |
unless mkdir $dst |
|
28
|
1 |
4 |
unless -d $dst |
|
29
|
0 |
4 |
unless opendir my $d, $dst |
|
30
|
2 |
2 |
unless (my(@tmp) = readdir $d) == 2 |
|
31
|
0 |
2 |
unless closedir $d |
|
38
|
0 |
3 |
grep({-x "$_/gtar";} split(/:/ms, $ENV{'PATH'}, 0)) ? : |
|
39
|
0 |
3 |
unless open my $unpack, '|-', "$TAR xpf - -C \Q$dst\E" |
|
42
|
0 |
3 |
unless close $unpack |
|
45
|
0 |
3 |
unless chdir $dst |
|
51
|
0 |
3 |
unless my($project) = `pwd` =~ m[([^/]+?)\n\z]msx |
|
56
|
0 |
3 |
if (exists $ENV{'NARADA_USER'}) |
|
65
|
0 |
3 |
unless rename 'var/backup/full.tar', "var/patch/$version.tar" |