| line |
true |
false |
branch |
|
517
|
0 |
3 |
unless open my $fh, "<", $file |
|
526
|
6 |
24 |
if ($l =~ /^#/u or $l =~ /^\s*$/u) |
|
532
|
0 |
24 |
if ($l =~ /\s/u) |
|
548
|
0 |
0 |
unless ("Slackware::SBoKeeper::System"->is_slackware) |
|
569
|
0 |
0 |
unless ("Slackware::SBoKeeper::System"->installed($m)) |
|
573
|
0 |
0 |
unless -d $sbopaths{$m} |
|
583
|
0 |
0 |
-f "$_/ChangeLog.txt" ? : |
|
586
|
0 |
0 |
@potential ? : |
|
601
|
0 |
0 |
if (fc $l eq 'y') { } |
|
|
0 |
0 |
elsif (fc $l eq 'n' or $l eq '') { } |
|
625
|
2 |
45 |
if ($a =~ /^@/u) { } |
|
636
|
0 |
2 |
unless (defined $PKG_CATEGORIES{$a}) |
|
651
|
8 |
6 |
if (-r $file) |
|
652
|
0 |
8 |
unless copy($file, "$file.bak") |
|
663
|
0 |
35 |
unless @list |
|
681
|
29 |
0 |
$has ? : |
|
683
|
0 |
29 |
unless $has |
|
713
|
0 |
3 |
-s $self->{'DataFile'} ? : |
|
723
|
3 |
0 |
$self->{'YesAll'} ? : |
|
725
|
0 |
3 |
unless ($ok) |
|
745
|
0 |
3 |
-s $self->{'DataFile'} ? : |
|
753
|
3 |
0 |
$self->{'YesAll'} ? : |
|
755
|
0 |
3 |
unless ($ok) |
|
775
|
0 |
1 |
-s $self->{'DataFile'} ? : |
|
781
|
0 |
1 |
unless (@add) |
|
787
|
1 |
0 |
$self->{'YesAll'} ? : |
|
789
|
0 |
1 |
unless ($ok) |
|
809
|
0 |
1 |
-s $self->{'DataFile'} ? : |
|
815
|
0 |
1 |
unless (@add) |
|
821
|
1 |
0 |
$self->{'YesAll'} ? : |
|
823
|
0 |
1 |
unless ($ok) |
|
849
|
0 |
3 |
unless (@rm) |
|
855
|
3 |
0 |
$self->{'YesAll'} ? : |
|
857
|
0 |
3 |
unless ($ok) |
|
891
|
0 |
1 |
unless ($sbokeeper->has($pkg)) |
|
897
|
1 |
0 |
@deps ? : |
|
913
|
0 |
1 |
unless ($sbokeeper->has($pkg)) |
|
919
|
1 |
0 |
@rdeps ? : |
|
939
|
0 |
0 |
unless (@add or @depadd) |
|
947
|
1 |
0 |
$self->{'YesAll'} ? : |
|
949
|
0 |
1 |
unless ($ok) |
|
977
|
0 |
1 |
unless (@rm) |
|
983
|
1 |
0 |
$self->{'YesAll'} ? : |
|
985
|
0 |
1 |
unless ($ok) |
|
1005
|
0 |
0 |
-s $self->{'DataFile'} ? : |
|
1013
|
0 |
0 |
unless ($sbokeeper->exists($i)) |
|
1018
|
0 |
0 |
if $sbokeeper->has($i) |
|
1026
|
0 |
0 |
unless (@add) |
|
1033
|
0 |
0 |
$self->{'YesAll'} ? : |
|
1035
|
0 |
0 |
unless ($ok) |
|
1067
|
0 |
0 |
unless defined $added{$i} |
|
1071
|
0 |
0 |
unless defined $installed{$a} |
|
1074
|
0 |
0 |
unless (@idiff or @adiff) |
|
1082
|
0 |
0 |
$sbokeeper->exists($_) ? : |
|
1087
|
0 |
0 |
$sbokeeper->exists($_) ? : |
|
1091
|
0 |
0 |
if (@idiff) |
|
1094
|
0 |
0 |
if @adiff |
|
1097
|
0 |
0 |
if (@adiff) |
|
1116
|
0 |
1 |
unless (%missing) |
|
1141
|
0 |
1 |
unless (%extra) |
|
1167
|
0 |
4 |
unless $sbokeeper->has($p) |
|
1172
|
1 |
0 |
$self->{'YesAll'} ? : |
|
1174
|
0 |
1 |
unless ($ok) |
|
1181
|
0 |
4 |
unless $sbokeeper->is_manual($p) |
|
1199
|
0 |
17 |
unless @cat |
|
1214
|
0 |
24 |
unless (defined $PKG_CATEGORIES{$c}) |
|
1224
|
15 |
2 |
if @pkgs |
|
1240
|
1 |
0 |
@{$self->{'Args'};} ? : |
|
1243
|
0 |
4 |
unless ($sbokeeper->has($p)) |
|
1268
|
0 |
4 |
unless $sbokeeper->has($p) |
|
1298
|
0 |
40 |
unless (@{$self->{'Args'};}) |
|
1305
|
0 |
40 |
unless (defined $COMMAND_HELP{$help}) |
|
1340
|
0 |
81 |
unless &GetOptions("blacklist|B=s", \$blacklist, "config|c=s", \$self->{'ConfigFile'}, "datafile|d=s", \$self->{'DataFile'}, "sbodir|s=s", \$self->{'SBoPath'}, "tag|t=s", \$self->{'Tag'}, "yes|y", \$self->{'YesAll'}, "help|h", sub {
print $HELP_MSG;
exit 0;
}
, "version|v", sub {
print $VERSION_MSG;
exit 0;
}
) |
|
1342
|
0 |
81 |
unless (@ARGV) |
|
1346
|
0 |
81 |
if (not $self->{'ConfigFile'} and defined $ENV{'SBOKEEPER_CONFIG'}) |
|
1350
|
78 |
3 |
unless ($self->{'ConfigFile'}) |
|
1354
|
3 |
78 |
if ($self->{'ConfigFile'}) |
|
1365
|
2 |
79 |
if (defined $blacklist) |
|
1367
|
1 |
1 |
if (-f $blacklist) { } |
|
1377
|
0 |
81 |
unless ($self->{'DataFile'}) |
|
1380
|
0 |
0 |
if ($> == 0 and -f $OLD_ROOT_DATA) { } |
|
1387
|
0 |
0 |
unless -d $DEFAULT_DATADIR |
|
1392
|
0 |
81 |
unless ($self->{'SBoPath'}) |
|
1394
|
0 |
0 |
unless $self->{'SBoPath'} = get_default_sbopath($self->{'PkgtoolLogs'}) |
|
1398
|
0 |
81 |
unless (-d $self->{'SBoPath'}) |
|
1413
|
0 |
78 |
unless (defined $COMMANDS{$self->{'Command'}}) |
|
1417
|
0 |
78 |
if ($COMMANDS{$self->{'Command'}}{'NeedDatabase'} and not -s $self->{'DataFile'}) |
|
1424
|
0 |
78 |
if ($COMMANDS{$self->{'Command'}}{'NeedSlack'} and not "Slackware::SBoKeeper::System"->is_slackware) |
|
1431
|
0 |
14 |
if ($COMMANDS{$self->{'Command'}}{'NeedWrite'} and (-e $self->{'DataFile'} and not -w $self->{'DataFile'})) |
|
1438
|
0 |
78 |
if (@{$self->{'Args'};} < $COMMANDS{$self->{'Command'}}{'Args'}) |