| line |
true |
false |
branch |
|
58
|
0 |
0 |
if (defined $_[1]) |
|
73
|
0 |
0 |
unless (defined $args{'scm'}) |
|
82
|
0 |
0 |
if (ref $args{'scm'} ne 'Sys::Config::Manage') |
|
91
|
0 |
0 |
if (defined $args{'default'}) |
|
93
|
0 |
0 |
unless ($args{'default'} =~ /^[01246][01234567][01234567][01234567]$/) |
|
139
|
0 |
0 |
if (defined $_[2]) |
|
145
|
0 |
0 |
unless ($self->errorblank) |
|
150
|
0 |
0 |
unless (defined $configDir) |
|
152
|
0 |
0 |
if ($$self{'scm'}->error) |
|
163
|
0 |
0 |
if ($$self{'scm'}->error) |
|
170
|
0 |
0 |
if (defined $valid) |
|
178
|
0 |
0 |
unless (-d $$self{'scm'}{'baseDir'} . '/' . $configDir) |
|
187
|
0 |
0 |
if (defined $files[$int]) { } |
|
189
|
0 |
0 |
if ($$self{'scm'}->error) |
|
203
|
0 |
0 |
if ($files[$int] eq $allfiles[$int2]) |
|
210
|
0 |
0 |
unless ($matched) |
|
223
|
0 |
0 |
if ($$self{'scm'}->error) |
|
237
|
0 |
0 |
if ($self->error) |
|
243
|
0 |
0 |
unless (chmod oct $perms, $files[$int]) |
|
278
|
0 |
0 |
unless ($self->errorblank) |
|
283
|
0 |
0 |
unless (defined $configDir) |
|
285
|
0 |
0 |
if ($$self{'scm'}->error) |
|
296
|
0 |
0 |
if ($$self{'scm'}->error) |
|
303
|
0 |
0 |
if (defined $valid) |
|
311
|
0 |
0 |
unless (-d $$self{'scm'}{'baseDir'} . '/' . $configDir) |
|
319
|
0 |
0 |
unless (defined $file) |
|
327
|
0 |
0 |
unless (-f $$self{'scm'}{'baseDir'} . '/' . $configDir . '/' . $file) |
|
339
|
0 |
0 |
unless (-f $permsfile) |
|
345
|
0 |
0 |
unless (open $fh, '<', $permsfile) |
|
379
|
0 |
0 |
unless ($self->errorblank) |
|
384
|
0 |
0 |
unless (defined $configDir) |
|
386
|
0 |
0 |
if ($$self{'scm'}->error) |
|
397
|
0 |
0 |
if ($$self{'scm'}->error) |
|
404
|
0 |
0 |
if (defined $valid) |
|
412
|
0 |
0 |
unless (-d $$self{'scm'}{'baseDir'} . '/' . $configDir) |
|
437
|
0 |
0 |
if (-f $permsFile) |
|
475
|
0 |
0 |
unless ($self->errorblank) |
|
480
|
0 |
0 |
unless (defined $configDir) |
|
482
|
0 |
0 |
if ($$self{'scm'}->error) |
|
493
|
0 |
0 |
if ($$self{'scm'}->error) |
|
500
|
0 |
0 |
if (defined $valid) |
|
508
|
0 |
0 |
unless (-d $$self{'scm'}{'baseDir'} . '/' . $configDir) |
|
516
|
0 |
0 |
unless (defined $file) |
|
524
|
0 |
0 |
unless (-f $$self{'scm'}{'baseDir'} . '/' . $configDir . '/' . $file) |
|
532
|
0 |
0 |
unless (defined $perms) |
|
540
|
0 |
0 |
unless ($perms =~ /^[01246][01234567][01234567][01234567]$/) |
|
550
|
0 |
0 |
unless (-d $scmd) |
|
551
|
0 |
0 |
unless (mkdir $scmd) |
|
561
|
0 |
0 |
unless (-d $permsdir) |
|
562
|
0 |
0 |
unless (mkdir $permsdir) |
|
575
|
0 |
0 |
if (-f $permsfile) |
|
580
|
0 |
0 |
unless (open $fh, '>', $permsfile) |
|
590
|
0 |
0 |
unless ($exists) |
|
591
|
0 |
0 |
if (defined $$self{'scm'}{'addCommand'}) |
|
598
|
0 |
0 |
if ($exit ne '0') |
|
635
|
0 |
0 |
unless ($self->errorblank) |
|
640
|
0 |
0 |
unless (defined $configDir) |
|
642
|
0 |
0 |
if ($$self{'scm'}->error) |
|
653
|
0 |
0 |
if ($$self{'scm'}->error) |
|
660
|
0 |
0 |
if (defined $valid) |
|
668
|
0 |
0 |
unless (-d $$self{'scm'}{'baseDir'} . '/' . $configDir) |
|
676
|
0 |
0 |
unless (defined $file) |
|
684
|
0 |
0 |
unless (-f $$self{'scm'}{'baseDir'} . '/' . $configDir . '/' . $file) |
|
692
|
0 |
0 |
unless (-f $file) |
|
700
|
0 |
0 |
unless ($$self{'scm'}->notUnderBase($file)) |
|
712
|
0 |
0 |
if ($self->error) |
|
751
|
0 |
0 |
if (defined $_[2]) |
|
757
|
0 |
0 |
unless ($self->errorblank) |
|
762
|
0 |
0 |
unless (defined $configDir) |
|
764
|
0 |
0 |
if ($$self{'scm'}->error) |
|
775
|
0 |
0 |
if ($$self{'scm'}->error) |
|
782
|
0 |
0 |
if (defined $valid) |
|
790
|
0 |
0 |
unless (-d $$self{'scm'}{'baseDir'} . '/' . $configDir) |
|
799
|
0 |
0 |
if (defined $files[$int]) { } |
|
801
|
0 |
0 |
if ($$self{'scm'}->error) |
|
815
|
0 |
0 |
if ($files[$int] eq $allfiles[$int2]) |
|
822
|
0 |
0 |
unless ($matched) |
|
835
|
0 |
0 |
if ($$self{'scm'}->error) |
|
849
|
0 |
0 |
if ($self->error) |