From 461bfc41f9ed52293c510301f5ce80ae06d78855 Mon Sep 17 00:00:00 2001
From: ElTata <eltata@firemail.cc>
Date: Wed, 22 Jul 2020 19:17:36 +0200
Subject: [PATCH] fix: ttl regex in real_gain
removed legacy regex which did not match numbers with '.'
---
Irpg/Classes/Farmer.pm | 1 -
1 file changed, 1 deletion(-)
diff --git a/Irpg/Classes/Farmer.pm b/Irpg/Classes/Farmer.pm
index db74568..b936cb3 100644
--- a/Irpg/Classes/Farmer.pm
+++ b/Irpg/Classes/Farmer.pm
@@ -82,7 +82,6 @@ sub steal_def {
sub real_gain {
# to apply on TTL modificators
my ($self, $time) = @_;
- return unless ($time =~ m/^-?\d+$/);
return unless ($time =~ m/^-?\d+(?:\.\d+$)?/);
$time = $time >= 0 ?
$time*(1-($self->cha()-1)/50): # add less time
--
GitLab