improvement : $rps is now available from PEVAL cmd

Brings $rps var in eval context for PEVAL cmd.
(Should already be, I do not really understand why it is not
the case.)

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 ".