1 files changed, 10 insertions, 0 deletions
diff --git a/perl/Wallet/ACL.pm b/perl/Wallet/ACL.pm
index 0d4685d..5a56c5c 100644
--- a/perl/Wallet/ACL.pm
+++ b/perl/Wallet/ACL.pm
@@ -151,6 +151,8 @@ sub rename {
     };
     if ($@) {
         $self->{error} = "cannot rename ACL $self->{id} to $name: $@";
+        chomp $self->{error};
+        $self->{error} =~ / at .*$/;
         $self->{dbh}->rollback;
         return undef;
     }
@@ -174,6 +176,8 @@ sub destroy {
     };
     if ($@) {
         $self->{error} = "cannot destroy ACL $self->{id}: $@";
+        chomp $self->{error};
+        $self->{error} =~ / at .*$/;
         $self->{dbh}->rollback;
         return undef;
     }
@@ -201,6 +205,8 @@ sub add {
     };
     if ($@) {
         $self->{error} = "cannot add $scheme:$identifier to $self->{id}: $@";
+        chomp $self->{error};
+        $self->{error} =~ / at .*$/;
         $self->{dbh}->rollback;
         return undef;
     }
@@ -230,6 +236,8 @@ sub remove {
     if ($@) {
         my $entry = "$scheme:$identifier";
         $self->{error} = "cannot remove $entry from $self->{id}: $@";
+        chomp $self->{error};
+        $self->{error} =~ / at .*$/;
         $self->{dbh}->rollback;
         return undef;
     }
@@ -258,6 +266,8 @@ sub list {
     };
     if ($@) {
         $self->{error} = "cannot retrieve ACL $self->{id}: $@";
+        chomp $self->{error};
+        $self->{error} =~ / at .*$/;
         return (undef);
     } else {
         return @entries;