bugfix : sub real_gain() matches decimal numbers

Irpg/Classes/Farmer.pm

@@ -83,6 +83,7 @@ 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