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}) {