use PVE::Exception qw(raise_param_exc);
use PVE::Tools;
use PVE::ProcFSTools;
-use Storable qw(dclone);
+use Clone qw(clone);
use Linux::Inotify2;
use base 'Exporter';
use JSON;
my $ret;
if (!$noclone && ref ($ccinfo->{data})) {
- $ret->{data} = dclone ($ccinfo->{data});
+ $ret->{data} = clone ($ccinfo->{data});
} else {
$ret->{data} = $ccinfo->{data};
}
}
# 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;
my $ret;
if (!$noclone && ref ($ccinfo->{data})) {
- $ret->{data} = dclone ($ccinfo->{data});
+ $ret->{data} = clone ($ccinfo->{data});
} else {
$ret->{data} = $ccinfo->{data};
}
# not printing out options
} elsif ($d->{type} eq 'bridge') {
- $d->{bridge_ports} =~ s/([;,\s])+/ /g;
+ $d->{bridge_ports} =~ s/[;,\s]+/ /g;
my $ports = $d->{bridge_ports} || 'none';
$raw .= "\tbridge_ports $ports\n";
$done->{bridge_ports} = 1;
} elsif ($d->{type} eq 'bond') {
- $d->{slaves} =~ s/([;,\s])+/ /g;
+ $d->{slaves} =~ s/[;,\s]+/ /g;
my $slaves = $d->{slaves} || 'none';
$raw .= "\tslaves $slaves\n";
$done->{slaves} = 1;