| line |
true |
false |
branch |
|
49
|
0 |
9 |
unless my $cfg_file = delete $opts{'cfg'}
|
|
50
|
0 |
9 |
unless -r $cfg_file
|
|
51
|
0 |
9 |
unless open my $fh, '<:encoding(UTF-8)', $cfg_file
|
|
65
|
3 |
6 |
if $opts{'script_dir'}
|
|
93
|
0 |
9 |
unless $$self{'log'} and -r $$self{'log'}
|
|
102
|
0 |
9 |
if ($ENV{'TARANTOOL_TEMPDIR'}) { }
|
|
105
|
0 |
0 |
if -d $$self{'temp'}
|
|
131
|
1 |
3 |
if ($v =~ /^\d+$/) { }
|
|
138
|
0 |
9 |
unless open my $fh, '>:encoding(UTF-8)', $$self{'cfg'}
|
|
145
|
9 |
0 |
if $?
|
|
149
|
0 |
0 |
if $?
|
|
159
|
0 |
0 |
unless ($$self{'child'} = fork)
|
|
161
|
0 |
0 |
unless defined $$self{'child'}
|
|
173
|
0 |
0 |
if 'IO::Socket::INET'->new('PeerAddr', '127.0.0.1', 'PeerPort', $self->primary_port)
|
|
181
|
0 |
0 |
if $self->log =~ /entering event loop/
|
|
185
|
0 |
0 |
unless $self->log =~ /entering event loop/
|
|
231
|
0 |
9 |
if ($$self{'child'})
|
|
248
|
0 |
0 |
unless $$self{'child'}
|
|
249
|
0 |
0 |
if 0 < CORE::kill(0, $$self{'child'})
|
|
263
|
0 |
9 |
unless $$self{'master'} == $$
|
|
265
|
0 |
9 |
if (-r $$self{'core'})
|
|
266
|
0 |
0 |
if -r $$self{'core'}
|
|
271
|
9 |
0 |
if $$self{'temp'} and not $$self{'dont_unlink_temp'}
|
|
283
|
0 |
0 |
unless $$self{'temp'}
|
|
295
|
0 |
27 |
if exists $busy_ports{$port}
|
|
296
|
0 |
27 |
$^O eq 'MSWin32' ? :
|
|
|
0 |
27 |
unless 'IO::Socket::INET'->new('Listen', 5, 'LocalAddr', '127.0.0.1', 'LocalPort', $port, 'Proto', 'tcp', $^O eq 'MSWin32' ? () : ('ReuseAddr', 1))
|