From 07e757998d829a80c84403fb32ec7232fad9639e Mon Sep 17 00:00:00 2001
From: ElTata <eltata@firemail.cc>
Date: Fri, 29 May 2020 17:37:34 +0200
Subject: [PATCH] change out/inbytes ref to values
---
Irpg/Irc.pm | 2 --
Irpg/Users.pm | 5 +++--
2 files changed, 3 insertions(+), 4 deletions(-)
diff --git a/Irpg/Irc.pm b/Irpg/Irc.pm
index 2163f0e..4b120ed 100644
--- a/Irpg/Irc.pm
+++ b/Irpg/Irc.pm
@@ -32,8 +32,6 @@ our %EXPORT_TAGS = (connection=>[qw($sock &irc_connect &irc_clean &checkmsg)],
my $outbytes = 0; # sent bytes
my $inbytes = 0; # received bytes
-my $out_ref = \$outbytes;
-my $in_ref = \$inbytes;
my @queue; # outgoing message queue
diff --git a/Irpg/Users.pm b/Irpg/Users.pm
index 55839a3..b251082 100644
--- a/Irpg/Users.pm
+++ b/Irpg/Users.pm
@@ -329,13 +329,14 @@ sub info {
else {
my $queuedbytes = 0;
$queuedbytes += (length($_)+2) for @Irpg::Irc::queue; # +2 = \r\n
+
$info = sprintf(
"%.2fkb sent, %.2fkb received in %s. %d IRPG users ".
"online of %d total users. PAUSE_MODE is %d, ".
"SILENT_MODE is %d. Outgoing queue is %d bytes ".
"in %d items. On via: %s. Admins online: %s.",
- $$Irpg::Irc::out_ref/1024,
- $$Irpg::Irc::in_ref/1024,
+ $Irpg::Irc::outbytes/1024,
+ $Irpg::Irc::inbytes/1024,
duration(time()-$^T),
scalar(grep { $rps->{$_}{online} } keys(%$rps)),
scalar(keys(%$rps)),
--
GitLab