From 2db38a1c391dbad2ea503d4894a837ba669968f7 Mon Sep 17 00:00:00 2001
From: Russ Allbery <rra@stanford.edu>
Date: Fri, 7 Dec 2007 00:32:12 +0000
Subject: Get rid of more return undefs.

---
 perl/Wallet/ACL.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl/Wallet/ACL.pm')

diff --git a/perl/Wallet/ACL.pm b/perl/Wallet/ACL.pm
index 7830523..dab5581 100644
--- a/perl/Wallet/ACL.pm
+++ b/perl/Wallet/ACL.pm
@@ -405,7 +405,7 @@ sub check {
         return;
     }
     my @entries = $self->list;
-    return undef if (not @entries and $self->error);
+    return if (not @entries and $self->error);
     my %verifier;
     $self->{check_errors} = [];
     for my $entry (@entries) {
-- 
cgit v1.2.3