diff --git a/Irpg/Event.pm b/Irpg/Event.pm
index a781d8e5888aee039f7a7aca6429434e1ede416d..df73576817deef6c9a946fbd3652c7618819bba1 100644
--- a/Irpg/Event.pm
+++ b/Irpg/Event.pm
@@ -417,10 +417,10 @@ sub goodness {
                 "evil men poison them. Together have they prayed to their ".
                 "God, and it is his light that now shines upon them. $gain\% ".
                 "of their time is removed from their clocks."));
-        $gain = int(($gain/100)*$rps->{$players[0]}{next});
-        $rps->{$players[0]}{next} += int($rps->{$players[0]}{class}->real_gain(-$gain));
-        $gain = int(($gain/100)*$rps->{$players[1]}{next});
-        $rps->{$players[1]}{next} += int($rps->{$players[1]}{class}->real_gain(-$gain));
+        my $gain_pl = int(($gain/100)*$rps->{$players[0]}{next});
+        $rps->{$players[0]}{next} += int($rps->{$players[0]}{class}->real_gain(-$gain_pl));
+        $gain_pl = int(($gain/100)*$rps->{$players[1]}{next});
+        $rps->{$players[1]}{next} += int($rps->{$players[1]}{class}->real_gain(-$gain_pl));
         Irpg::Irc::chanmsg("$players[0] reaches next level in ".
                 duration($rps->{$players[0]}{next}).".");
         Irpg::Irc::chanmsg("$players[1] reaches next level in ".