diff --git a/Irpg/Admin.pm b/Irpg/Admin.pm
index d0131c45a2a94f7dfe50b4bfb7061a1bd2dd2a52..08a3c10ef43f64d16e149939d18e82a8d2efecd8 100644
--- a/Irpg/Admin.pm
+++ b/Irpg/Admin.pm
@@ -36,6 +36,11 @@ sub peval {
 		Irpg::Irc::privmsg("You don't have access to PEVAL.", $usernick);
 	}
 	else {
+		my (undef) = $rps; #does nothing;
+						   #this is a cheat to have $rps variable
+						   #available in eval context
+						   #FIXME
+						   #I don't understand why $rps is not already available
 		my @peval = eval "@arg";
 		if (@peval >= 4 || length("@peval") > 1024) {
 			Irpg::Irc::privmsg("Command produced too much output to send ".