summaryrefslogtreecommitdiff
path: root/perl/Wallet/ACL/Krb5.pm
diff options
context:
space:
mode:
authorRuss Allbery <rra@stanford.edu>2007-12-05 22:55:45 +0000
committerRuss Allbery <rra@stanford.edu>2007-12-05 22:55:45 +0000
commitf8c47d1f3cf5d4e8aa64c39120731ca9054dc786 (patch)
tree479e5d45b62e70ddfe8f15d2efc0a05cc60ca158 /perl/Wallet/ACL/Krb5.pm
parent5ad61b6ecd14adffa013ef5b0b8c2b8da8cca03b (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.pm4
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;
}