fix: ttl regex in real_gain

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