I run into seroius troubles with dclone, which seem to be
buggy with tainted flag ...
Also, documentation states Clone::clone is much faster.
use PVE::Exception qw(raise_param_exc);
use PVE::Tools;
use PVE::ProcFSTools;
use PVE::Exception qw(raise_param_exc);
use PVE::Tools;
use PVE::ProcFSTools;
-use Storable qw(dclone);
use Linux::Inotify2;
use base 'Exporter';
use JSON;
use Linux::Inotify2;
use base 'Exporter';
use JSON;
my $ret;
if (!$noclone && ref ($ccinfo->{data})) {
my $ret;
if (!$noclone && ref ($ccinfo->{data})) {
- $ret->{data} = dclone ($ccinfo->{data});
+ $ret->{data} = clone ($ccinfo->{data});
} else {
$ret->{data} = $ccinfo->{data};
}
} else {
$ret->{data} = $ccinfo->{data};
}
}
# we cache data with references, so we always need to
}
# we cache data with references, so we always need to
- # dclone this data. Else the original data may get
+ # clone this data. Else the original data may get
# modified.
$ccinfo->{data} = $res;
# modified.
$ccinfo->{data} = $res;
my $ret;
if (!$noclone && ref ($ccinfo->{data})) {
my $ret;
if (!$noclone && ref ($ccinfo->{data})) {
- $ret->{data} = dclone ($ccinfo->{data});
+ $ret->{data} = clone ($ccinfo->{data});
} else {
$ret->{data} = $ccinfo->{data};
}
} else {
$ret->{data} = $ccinfo->{data};
}