aleesa-bot/aleesa-misc
Archived
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Use Clone, just in case

Browse Source
This commit is contained in:
eleksir
2022-01-07 18:57:17 +03:00
parent c0477ccd7f
commit af12806134
2 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
cpanfile
View File

@@ -1,4 +1,5 @@
requires 'Carp', '==1.50'; requires 'Carp', '==1.50';
requires 'Clone', '==0.45';
requires 'Cwd', '==3.75'; requires 'Cwd', '==3.75';
requires 'Cwd::utf8', '==0.011'; requires 'Cwd::utf8', '==0.011';
requires 'Data::Dumper', '==2.183'; requires 'Data::Dumper', '==2.183';

3
lib/Misc.pm
View File

@@ -7,6 +7,7 @@ use warnings;
use utf8; use utf8;
use open qw (:std :utf8); use open qw (:std :utf8);
use Clone qw (clone);
# Модули для работы приложения # Модули для работы приложения
use Log::Any qw ($log); use Log::Any qw ($log);
use Math::Random::Secure qw (irand); use Math::Random::Secure qw (irand);
@@ -30,7 +31,7 @@ my $fwd_cnt = $c->{'forward_max'} // 5;
my $parse_message = sub { my $parse_message = sub {
my $self = shift; my $self = shift;
my $m = shift; my $m = shift;
my $answer = $m; my $answer = clone ($m);
$answer->{from} = 'misc'; $answer->{from} = 'misc';
if (defined $answer->{misc}) { if (defined $answer->{misc}) {