return $version->@*;
}
-sub freeze_thaw($$) {
- my ($vmid, $freeze) = @_;
-
- my $cgroup = PVE::LXC::CGroup->new($vmid);
+sub freeze($) {
+ my ($vmid) = @_;
+ PVE::LXC::CGroup->new($vmid)->freeze_thaw(1);
+}
- $cgroup->freeze_thaw($freeze);
+sub thaw($) {
+ my ($vmid) = @_;
+ PVE::LXC::CGroup->new($vmid)->freeze_thaw(0);
}
1;