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) |