blib/lib/Auth/Krb5Afs.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 0 | 14 | 0.0 |
line | true | false | branch |
---|---|---|---|
49 | 0 | 0 | unless (@pwent{'name', 'passwd', 'uid', 'gid', 'quota', 'comment', 'gcos', 'home', 'shell', 'expire'} = getpwnam $user) |
59 | 0 | 0 | if ($?) |
66 | 0 | 0 | if ($?) |
75 | 0 | 0 | if ($> == 0) |
76 | 0 | 0 | if (-f $ENV{'KRB5CCNAME'}) |
77 | 0 | 0 | unless chown $pwent{'uid'}, $pwent{'gid'}, $ENV{'KRB5CCNAME'} |
89 | 0 | 0 | wantarray ? : |