diff options
author | Russ Allbery <rra@stanford.edu> | 2007-12-05 22:55:45 +0000 |
---|---|---|
committer | Russ Allbery <rra@stanford.edu> | 2007-12-05 22:55:45 +0000 |
commit | f8c47d1f3cf5d4e8aa64c39120731ca9054dc786 (patch) | |
tree | 479e5d45b62e70ddfe8f15d2efc0a05cc60ca158 /perl/Wallet/ACL/Krb5.pm | |
parent | 5ad61b6ecd14adffa013ef5b0b8c2b8da8cca03b (diff) |
Various coding style fixes and cleanup based on a much-appreciated
code audit by Simon Cozens. I didn't take all of his advise, and he
shouldn't be blamed for any remaining issues.
Diffstat (limited to 'perl/Wallet/ACL/Krb5.pm')
-rw-r--r-- | perl/Wallet/ACL/Krb5.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl/Wallet/ACL/Krb5.pm b/perl/Wallet/ACL/Krb5.pm index 8c0610b..f94475f 100644 --- a/perl/Wallet/ACL/Krb5.pm +++ b/perl/Wallet/ACL/Krb5.pm @@ -35,11 +35,11 @@ sub check { my ($self, $principal, $acl) = @_; unless ($principal) { $self->error ('no principal specified'); - return undef; + return; } unless ($acl) { $self->error ('malformed krb5 ACL'); - return undef; + return; } return ($principal eq $acl) ? 1 : 0; } |