line |
true |
false |
branch |
56
|
0 |
0 |
if (defined $_[1]) |
72
|
0 |
0 |
unless (defined $args{'scm'}) |
81
|
0 |
0 |
if (ref $args{'scm'} ne 'Sys::Config::Manage') |
90
|
0 |
0 |
if (defined $args{'defaultUID'}) |
92
|
0 |
0 |
unless ($args{'default'} =~ /^[0123456789]*$/) |
103
|
0 |
0 |
if (defined $args{'defaultGID'}) |
105
|
0 |
0 |
unless ($args{'default'} =~ /^[0123456789]*$/) |
151
|
0 |
0 |
if (defined $_[2]) |
157
|
0 |
0 |
unless ($self->errorblank) |
162
|
0 |
0 |
unless (defined $configDir) |
164
|
0 |
0 |
if ($$self{'scm'}->error) |
175
|
0 |
0 |
if ($$self{'scm'}->error) |
182
|
0 |
0 |
if (defined $valid) |
190
|
0 |
0 |
unless (-d $$self{'scm'}{'baseDir'} . '/' . $configDir) |
199
|
0 |
0 |
if (defined $files[$int]) { } |
201
|
0 |
0 |
if ($$self{'scm'}->error) |
215
|
0 |
0 |
if ($files[$int] eq $allfiles[$int2]) |
222
|
0 |
0 |
unless ($matched) |
235
|
0 |
0 |
if ($$self{'scm'}->error) |
249
|
0 |
0 |
if ($self->error) |
256
|
0 |
0 |
if ($self->error) |
262
|
0 |
0 |
unless (chmod $uid, $gid, $files[$int]) |
297
|
0 |
0 |
unless ($self->errorblank) |
302
|
0 |
0 |
unless (defined $configDir) |
304
|
0 |
0 |
if ($$self{'scm'}->error) |
315
|
0 |
0 |
if ($$self{'scm'}->error) |
322
|
0 |
0 |
if (defined $valid) |
330
|
0 |
0 |
unless (-d $$self{'scm'}{'baseDir'} . '/' . $configDir) |
338
|
0 |
0 |
unless (defined $file) |
346
|
0 |
0 |
unless (-f $$self{'scm'}{'baseDir'} . '/' . $configDir . '/' . $file) |
358
|
0 |
0 |
unless (-f $idfile) |
364
|
0 |
0 |
unless (open $fh, '<', $idfile) |
399
|
0 |
0 |
unless ($self->errorblank) |
404
|
0 |
0 |
unless (defined $configDir) |
406
|
0 |
0 |
if ($$self{'scm'}->error) |
417
|
0 |
0 |
if ($$self{'scm'}->error) |
424
|
0 |
0 |
if (defined $valid) |
432
|
0 |
0 |
unless (-d $$self{'scm'}{'baseDir'} . '/' . $configDir) |
440
|
0 |
0 |
unless (defined $file) |
448
|
0 |
0 |
unless (-f $$self{'scm'}{'baseDir'} . '/' . $configDir . '/' . $file) |
460
|
0 |
0 |
unless (-f $idfile) |
466
|
0 |
0 |
unless (open $fh, '<', $idfile) |
500
|
0 |
0 |
unless ($self->errorblank) |
505
|
0 |
0 |
unless (defined $configDir) |
507
|
0 |
0 |
if ($$self{'scm'}->error) |
518
|
0 |
0 |
if ($$self{'scm'}->error) |
525
|
0 |
0 |
if (defined $valid) |
533
|
0 |
0 |
unless (-d $$self{'scm'}{'baseDir'} . '/' . $configDir) |
560
|
0 |
0 |
if (-f $UIDfile or -f $GIDfile) |
601
|
0 |
0 |
unless ($self->errorblank) |
606
|
0 |
0 |
unless (defined $configDir) |
608
|
0 |
0 |
if ($$self{'scm'}->error) |
619
|
0 |
0 |
if ($$self{'scm'}->error) |
626
|
0 |
0 |
if (defined $valid) |
634
|
0 |
0 |
unless (-d $$self{'scm'}{'baseDir'} . '/' . $configDir) |
642
|
0 |
0 |
unless (defined $file) |
650
|
0 |
0 |
unless (-f $$self{'scm'}{'baseDir'} . '/' . $configDir . '/' . $file) |
658
|
0 |
0 |
unless (defined $id) |
666
|
0 |
0 |
unless ($id =~ /^[0123456789]*$/) |
676
|
0 |
0 |
unless (-d $scmd) |
677
|
0 |
0 |
unless (mkdir $scmd) |
687
|
0 |
0 |
unless (-d $iddir) |
688
|
0 |
0 |
unless (mkdir $iddir) |
701
|
0 |
0 |
if (-f $idfile) |
706
|
0 |
0 |
unless (open $fh, '>', $idfile) |
716
|
0 |
0 |
unless ($exists) |
717
|
0 |
0 |
if (defined $$self{'scm'}{'addCommand'}) |
724
|
0 |
0 |
if ($exit ne '0') |
764
|
0 |
0 |
unless ($self->errorblank) |
769
|
0 |
0 |
unless (defined $configDir) |
771
|
0 |
0 |
if ($$self{'scm'}->error) |
782
|
0 |
0 |
if ($$self{'scm'}->error) |
789
|
0 |
0 |
if (defined $valid) |
797
|
0 |
0 |
unless (-d $$self{'scm'}{'baseDir'} . '/' . $configDir) |
805
|
0 |
0 |
unless (defined $file) |
813
|
0 |
0 |
unless (-f $$self{'scm'}{'baseDir'} . '/' . $configDir . '/' . $file) |
821
|
0 |
0 |
unless (defined $id) |
829
|
0 |
0 |
unless ($id =~ /^[0123456789]*$/) |
839
|
0 |
0 |
unless (-d $scmd) |
840
|
0 |
0 |
unless (mkdir $scmd) |
850
|
0 |
0 |
unless (-d $iddir) |
851
|
0 |
0 |
unless (mkdir $iddir) |
864
|
0 |
0 |
if (-f $idfile) |
869
|
0 |
0 |
unless (open $fh, '>', $idfile) |
879
|
0 |
0 |
unless ($exists) |
880
|
0 |
0 |
if (defined $$self{'scm'}{'addCommand'}) |
887
|
0 |
0 |
if ($exit ne '0') |
924
|
0 |
0 |
unless ($self->errorblank) |
929
|
0 |
0 |
unless (defined $configDir) |
931
|
0 |
0 |
if ($$self{'scm'}->error) |
942
|
0 |
0 |
if ($$self{'scm'}->error) |
949
|
0 |
0 |
if (defined $valid) |
957
|
0 |
0 |
unless (-d $$self{'scm'}{'baseDir'} . '/' . $configDir) |
965
|
0 |
0 |
unless (defined $file) |
973
|
0 |
0 |
unless (-f $$self{'scm'}{'baseDir'} . '/' . $configDir . '/' . $file) |
981
|
0 |
0 |
unless (-f $file) |
989
|
0 |
0 |
unless ($$self{'scm'}->notUnderBase($file)) |
1000
|
0 |
0 |
if ($self->error) |
1033
|
0 |
0 |
unless ($self->errorblank) |
1038
|
0 |
0 |
unless (defined $configDir) |
1040
|
0 |
0 |
if ($$self{'scm'}->error) |
1051
|
0 |
0 |
if ($$self{'scm'}->error) |
1058
|
0 |
0 |
if (defined $valid) |
1066
|
0 |
0 |
unless (-d $$self{'scm'}{'baseDir'} . '/' . $configDir) |
1074
|
0 |
0 |
unless (defined $file) |
1082
|
0 |
0 |
unless (-f $$self{'scm'}{'baseDir'} . '/' . $configDir . '/' . $file) |
1090
|
0 |
0 |
unless (-f $file) |
1098
|
0 |
0 |
unless ($$self{'scm'}->notUnderBase($file)) |
1109
|
0 |
0 |
if ($self->error) |
1148
|
0 |
0 |
if (defined $_[2]) |
1154
|
0 |
0 |
unless ($self->errorblank) |
1159
|
0 |
0 |
unless (defined $configDir) |
1161
|
0 |
0 |
if ($$self{'scm'}->error) |
1172
|
0 |
0 |
if ($$self{'scm'}->error) |
1179
|
0 |
0 |
if (defined $valid) |
1187
|
0 |
0 |
unless (-d $$self{'scm'}{'baseDir'} . '/' . $configDir) |
1196
|
0 |
0 |
if (defined $files[$int]) { } |
1198
|
0 |
0 |
if ($$self{'scm'}->error) |
1212
|
0 |
0 |
if ($files[$int] eq $allfiles[$int2]) |
1219
|
0 |
0 |
unless ($matched) |
1232
|
0 |
0 |
if ($$self{'scm'}->error) |
1246
|
0 |
0 |
if ($self->error) |
1253
|
0 |
0 |
if ($self->error) |