diff options
| author | Russ Allbery <rra@stanford.edu> | 2007-08-31 16:55:23 +0000 |
|---|---|---|
| committer | Russ Allbery <rra@stanford.edu> | 2007-08-31 16:55:23 +0000 |
| commit | 0ce8e1f8cf98c34b1d6990473a33f77fc04cac04 (patch) | |
| tree | 3cbe7b4e39bc23b88c38143db1dd088e7623c7d2 /perl/Wallet/ACL/Krb5.pm | |
| parent | d67458b024098556511c7cfdc38a94351ed570d4 (diff) | |
Use a better method of setting the internal error that automatically
adjusts for trailing newlines and exception detritus, saving duplicate
code. Standardize the documentation of the error() method and document
using this in child classes of the generic ACL and Object classes.
Disable printing of errors during connect in Wallet::Server since we're
going to throw our own exception.
Diffstat (limited to 'perl/Wallet/ACL/Krb5.pm')
| -rw-r--r-- | perl/Wallet/ACL/Krb5.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/perl/Wallet/ACL/Krb5.pm b/perl/Wallet/ACL/Krb5.pm index ffe1fc5..eab0c28 100644 --- a/perl/Wallet/ACL/Krb5.pm +++ b/perl/Wallet/ACL/Krb5.pm @@ -34,11 +34,11 @@ $VERSION = '0.01'; sub check { my ($self, $principal, $acl) = @_; unless ($principal) { - $self->{error} = 'no principal specified'; + $self->error ('no principal specified'); return undef; } unless ($acl) { - $self->{error} = 'malformed krb5 ACL'; + $self->error ('malformed krb5 ACL'); return undef; } return ($principal eq $acl) ? 1 : 0; @@ -80,7 +80,7 @@ principal if and only if the principal exactly matches the ACL. =item new() -Creates a new ACL verifier. The database handle is not used. +Creates a new ACL verifier. For this verifier, there is no setup work. =item check(PRINCIPAL, ACL) |