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

bugfix : sub real_gain() matches decimal numbers

parent 3225d812
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+$/); return unless ($time =~ m/^-?\d+(?:\.\d+$)?/);
$time = $time >= 0 ? $time = $time >= 0 ?
$time*(1-($self->cha()-1)/20): # add less time $time*(1-($self->cha()-1)/20): # add less time
$time*(1+($self->cha()-1)/20); # remove more time $time*(1+($self->cha()-1)/20); # 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