Skip to content
Extraits de code Groupes Projets
Valider ac59a478 rédigé par ElTata's avatar ElTata :ok_hand:
Parcourir les fichiers

fix: ttl regex in real_gain

parent 461bfc41
Aucune branche associée trouvée
Aucune étiquette associée trouvée
Aucune requête de fusion associée trouvée
...@@ -82,7 +82,7 @@ sub steal_def { ...@@ -82,7 +82,7 @@ sub steal_def {
sub real_gain { sub real_gain {
# to apply on TTL modificators # to apply on TTL modificators
my ($self, $time) = @_; my ($self, $time) = @_;
return unless ($time =~ m/^-?\d+(?:\.\d+$)?/); return unless ($time =~ m/^-?\d+(?:\.\d+)?$/);
$time = $time >= 0 ? $time = $time >= 0 ?
$time*(1-($self->cha()-1)/50): # add less time $time*(1-($self->cha()-1)/50): # add less time
$time*(1+($self->cha()-1)/50); # remove more time $time*(1+($self->cha()-1)/50); # remove more time
......
0% Chargement en cours ou .
You are about to add 0 people to the discussion. Proceed with caution.
Terminez d'abord l'édition de ce message.
Veuillez vous inscrire ou vous pour commenter