diff --git a/Irpg/Classes/Farmer.pm b/Irpg/Classes/Farmer.pm
index 06c395b3a76de1e0a5c332d8322f20449a84f95c..a94408ce9424788fb91b1158c601843c0520709c 100644
--- a/Irpg/Classes/Farmer.pm
+++ b/Irpg/Classes/Farmer.pm
@@ -82,7 +82,7 @@ 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)/20):	# add less time
 		$time*(1+($self->cha()-1)/20);	# remove more time