diff --git a/root/etc/e-smith/events/actions/update-ldap-pseudonyms b/root/etc/e-smith/events/actions/update-ldap-pseudonyms
index d4ceb7f..5542e31 100644
--- a/root/etc/e-smith/events/actions/update-ldap-pseudonyms
+++ b/root/etc/e-smith/events/actions/update-ldap-pseudonyms
@@ -35,6 +35,7 @@ use Text::Unaccent::PurePerl qw(unac_string);
 my $c = esmith::ConfigDB->open_ro;
 my $a = esmith::AccountsDB->open_ro;
 
+my $x = 0;
 my $i = $c->get('ipasserelle');
 my $ip = $i->prop('status') || 'disabled';
 my $alias = $i->prop('LdapMailAlias') || 'disabled';
@@ -146,7 +147,7 @@ foreach my $acct (@accounts){
                              mail => \@alias
                          }
               );
-        $result->code && warn "failed to modify entry $dn=$key,ou=$ou,$base: ", $result->error;
+        $result->code && ($x = 255, warn "failed to modify entry $dn=$key,ou=$ou,$base: ", $result->error;)
     }
 }