1 files changed, 4 insertions, 0 deletions
diff --git a/perl/lib/Wallet/ACL.pm b/perl/lib/Wallet/ACL.pm
index f875185..862b88f 100644
--- a/perl/lib/Wallet/ACL.pm
+++ b/perl/lib/Wallet/ACL.pm
@@ -333,6 +333,10 @@ sub add {
     my $object = eval {
         $class->new ($identifier, $self->{schema});
     };
+    if ($@) {
+        $self->error ("cannot create ACL verifier: $@");
+        return;
+    }
     unless ($object && $object->syntax_check ($identifier)) {
         $self->error ("invalid ACL identifier $identifier for $scheme");
         return;