diff --git a/Irpg/Classes/Farmer.pm b/Irpg/Classes/Farmer.pm
index b936cb372658e35d9d81755737bfaca5e7060d5e..be4e60e48c6379d773d80b2eef09916b0494926e 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+(?:\.\d+$)?/);
+	return unless ($time =~ m/^-?\d+(?:\.\d+)?$/);
 	$time = $time >= 0 ?
 		$time*(1-($self->cha()-1)/50):	# add less time
 		$time*(1+($self->cha()-1)/50);	# remove more time