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/NetDB | |
| 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/NetDB')
| -rw-r--r-- | perl/Wallet/ACL/NetDB/Root.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl/Wallet/ACL/NetDB/Root.pm b/perl/Wallet/ACL/NetDB/Root.pm index 5400d99..6ce7c88 100644 --- a/perl/Wallet/ACL/NetDB/Root.pm +++ b/perl/Wallet/ACL/NetDB/Root.pm @@ -37,7 +37,7 @@ sub check { my ($self, $principal, $acl) = @_; unless ($principal) { $self->error ('no principal specified'); - return undef; + return; } unless ($principal =~ s%^([^/\@]+)/root(\@|\z)%$1$2%) { return 0; |