From af12806134a84daf358deba30ef8729b1a82823d Mon Sep 17 00:00:00 2001
From: eleksir <eleksir@exs-elm.ru>
Date: Fri, 7 Jan 2022 18:57:17 +0300
Subject: [PATCH] Use Clone, just in case

---
 cpanfile    | 1 +
 lib/Misc.pm | 3 ++-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/cpanfile b/cpanfile
index c5af704..3b8dbff 100644
--- a/cpanfile
+++ b/cpanfile
@@ -1,4 +1,5 @@
 requires 'Carp',                 '==1.50';
+requires 'Clone',                '==0.45';
 requires 'Cwd',                  '==3.75';
 requires 'Cwd::utf8',            '==0.011';
 requires 'Data::Dumper',         '==2.183';
diff --git a/lib/Misc.pm b/lib/Misc.pm
index a887f2d..2f74bba 100644
--- a/lib/Misc.pm
+++ b/lib/Misc.pm
@@ -7,6 +7,7 @@ use warnings;
 use utf8;
 use open qw (:std :utf8);
 
+use Clone  qw (clone);
 # Модули для работы приложения
 use Log::Any qw ($log);
 use Math::Random::Secure qw (irand);
@@ -30,7 +31,7 @@ my $fwd_cnt = $c->{'forward_max'} // 5;
 my $parse_message = sub {
 	my $self = shift;
 	my $m = shift;
-	my $answer = $m;
+	my $answer = clone ($m);
 	$answer->{from} = 'misc';
 
 	if (defined $answer->{misc}) {