Fix exit code in update-ldap-pseudonym

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;)
     }
 }