| line |
true |
false |
branch |
|
69
|
4 |
3 |
defined $_[0] ? : |
|
72
|
2 |
5 |
unless $ROOT_DIR and $TEST_DIR |
|
75
|
0 |
7 |
unless mkdir _untaint($subdir) |
|
104
|
0 |
1 |
unless chdir $tempdir |
|
108
|
0 |
1 |
unless chdir $cwd or chdir '/' |
|
109
|
0 |
1 |
unless $ok |
|
114
|
0 |
0 |
if -d '../t' |
|
121
|
2 |
0 |
if (-d 't' and -w $DEFAULT_ROOT || -w '.') { } |
|
|
0 |
0 |
elsif (_inside_t_dir() and -w '../$DEFAULT_ROOT' || -w '..') { } |
|
137
|
0 |
2 |
if (-d $TEST_DIR) |
|
148
|
0 |
2 |
unless (mkdir _untaint($ROOT_DIR)) |
|
149
|
0 |
0 |
unless $! == 17 |
|
158
|
2 |
0 |
if (mkdir _untaint($TEST_DIR)) |
|
165
|
0 |
0 |
if ($! != 2) |
|
171
|
0 |
0 |
if (-e $ROOT_DIR and not -d _) |
|
175
|
0 |
0 |
if $n < $TRIES |
|
189
|
0 |
0 |
if $ENV{'PERL_TEST_TEMPDIR_TINY_NOCLEANUP'} |
|
190
|
0 |
0 |
if ($ROOT_DIR and -d $ROOT_DIR) |
|
193
|
0 |
0 |
if ($SYSTEM_TEMP or not $?) |
|
194
|
0 |
0 |
unless chdir _untaint($ORIGINAL_CWD) or chdir '/' |
|
197
|
0 |
0 |
if -d $TEST_DIR |
|
205
|
0 |
0 |
unless -l $ROOT_DIR |
|
214
|
2 |
0 |
if ($$ == $ORIGINAL_PID) |
|
216
|
0 |
2 |
if ($] lt '5.008000') { } |