diff options
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; |