From 0234ead77d4ed914ed9fef1e2e537c8aa584b418 Mon Sep 17 00:00:00 2001
From: ElTata <eltata@firemail.cc>
Date: Wed, 1 Jul 2020 19:42:53 +0200
Subject: [PATCH] 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 | 5 +++++
1 file changed, 5 insertions(+)
diff --git a/Irpg/Admin.pm b/Irpg/Admin.pm
index d0131c4..08a3c10 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 ".
--
GitLab