| line |
true |
false |
branch |
|
24
|
0 |
0 |
if ($^O eq 'freebsd') { } |
|
46
|
0 |
0 |
unless $quiet or $batch_mode |
|
51
|
0 |
0 |
unless defined $mess |
|
54
|
0 |
0 |
if $batch_mode |
|
57
|
0 |
0 |
unless $isa_tty |
|
59
|
0 |
0 |
defined $def ? : |
|
66
|
0 |
0 |
if (not $isa_tty and eof STDIN) { } |
|
71
|
0 |
0 |
if (defined $ans) { } |
|
79
|
0 |
0 |
!defined($ans) || $ans eq '' ? : |
|
89
|
0 |
0 |
$default ? : |
|
90
|
0 |
0 |
$default ? : |
|
92
|
0 |
0 |
if ($result =~ /^y/i) |
|
100
|
0 |
0 |
if system(@_) == 0 |
|
103
|
0 |
0 |
if ($!) |
|
106
|
0 |
0 |
if ($? > 0) |
|
107
|
0 |
0 |
if $? & 127 |
|
108
|
0 |
0 |
if $? & 128 |
|
109
|
0 |
0 |
if $? >> 8 |
|
116
|
0 |
0 |
unless open my $fh, '<', $file |
|
136
|
0 |
0 |
unless &GetOptions('local!', \$opt_local, 'batch-mode', \$batch_mode, 'quiet', \$quiet, 'reconfigure!', \$opt_reconfigure, 'service-dir=s', \$opt_service_dir, 'data-dir=s', \$opt_data_dir, 'log-dir=s', \$opt_log_dir, 'default-user=s', \$opt_default_user, 'sticky-777!', \$opt_sticky_777, 'install-services!', \$opt_install_services, 'crontab!', \$opt_crontab) |
|
150
|
0 |
0 |
if @ARGV |
|
155
|
0 |
0 |
unless ($@) |
|
157
|
0 |
0 |
unless $go |
|
164
|
0 |
0 |
unless ($batch_mode) |
|
170
|
0 |
0 |
$> ? : |
|
172
|
0 |
0 |
unless (defined $local) |
|
173
|
0 |
0 |
if ($is_root) { } |
|
175
|
0 |
0 |
unless $ok |
|
179
|
0 |
0 |
unless $ok |
|
185
|
0 |
0 |
if ($local) |
|
187
|
0 |
0 |
unless (defined $local_dir) |
|
190
|
0 |
0 |
unless (-d $local_dir) |
|
200
|
0 |
0 |
defined $local_dir ? : |
|
201
|
0 |
0 |
if defined $opt_service_dir |
|
210
|
0 |
0 |
defined $local_dir ? : |
|
211
|
0 |
0 |
if defined $opt_data_dir |
|
220
|
0 |
0 |
defined $local_dir ? : |
|
221
|
0 |
0 |
if defined $opt_log_dir |
|
227
|
0 |
0 |
if ($is_root) { } |
|
236
|
0 |
0 |
unless (defined $default_user) |
|
243
|
0 |
0 |
if ($is_root) |
|
278
|
0 |
0 |
unless my $ubic_watchdog_full_name = which('ubic-watchdog') |
|
282
|
0 |
0 |
if ($perls[0] =~ /perlbrew/) { } |
|
|
0 |
0 |
elsif (@perls > 1) { } |
|
286
|
0 |
0 |
unless ($HOME) |
|
290
|
0 |
0 |
unless (-e $perlbrew_config) |
|
305
|
0 |
0 |
if ($ENV{'PERL5LIB'}) |
|
317
|
0 |
0 |
defined $local_dir ? : |
|
324
|
0 |
0 |
unless $run |
|
335
|
0 |
0 |
unless chmod 01777, "$data_dir/$subdir" |
|
340
|
0 |
0 |
if ($install_services) |
|
372
|
0 |
0 |
if ($enable_crontab) |
|
380
|
0 |
0 |
if ($stderr and not $stderr =~ /no crontab/) |
|
387
|
0 |
0 |
unless open my $fh, '|-', 'crontab -' |
|
389
|
0 |
0 |
unless print {$fh;} @_ |
|
393
|
0 |
0 |
if ($crontab_wrap_bash) |
|
398
|
0 |
0 |
unless close $fh |
|
408
|
0 |
0 |
if ($install_services) |