| line |
true |
false |
branch |
|
33
|
0 |
0 |
unless (-d $top_dir)
|
|
42
|
0 |
0 |
if ($ok) { }
|
|
44
|
0 |
0 |
if $verbose
|
|
45
|
0 |
0 |
if $results
|
|
47
|
0 |
0 |
if $errors
|
|
52
|
0 |
0 |
if (-d $top_dir)
|
|
58
|
0 |
0 |
if ($ok) { }
|
|
60
|
0 |
0 |
if $verbose
|
|
61
|
0 |
0 |
if $results
|
|
63
|
0 |
0 |
if $errors
|
|
67
|
0 |
0 |
unless ($keep_root)
|
|
69
|
0 |
0 |
if ($ok) { }
|
|
71
|
0 |
0 |
if $verbose
|
|
72
|
0 |
0 |
if $results
|
|
74
|
0 |
0 |
if $errors
|
|
84
|
0 |
0 |
unless my $dh = 'IO::Dir'->new($dir)
|
|
88
|
0 |
0 |
if ($item eq '.' or $item eq '..')
|
|
93
|
0 |
0 |
if (-d $path)
|
|
110
|
0 |
0 |
unless Authen::Krb5::init_context()
|
|
113
|
0 |
0 |
unless my $client = Authen::Krb5::parse_name($principal)
|
|
116
|
0 |
0 |
unless my $server = Authen::Krb5::parse_name('krbtgt/' . $client->realm)
|
|
119
|
0 |
0 |
unless my $cc = Authen::Krb5::cc_resolve($ccache)
|
|
122
|
0 |
0 |
unless $cc->initialize($client)
|
|
125
|
0 |
0 |
unless my $kt = Authen::Krb5::kt_resolve($keytab)
|
|
128
|
0 |
0 |
unless Authen::Krb5::get_in_tkt_with_keytab($client, $server, $kt, $cc)
|