open(my $fh, '>', $filename) || die "failed to open '$filename' - $!\n";
PVE::Tools::safe_print($filename, $fh, "$value\n");
- close($fh);
+ close($fh) || die "failed to close '$filename' - $!\n";
}
sub insert {
$next = $cpu;
} else {
$res .= ',' if length($res);
- $res .= "$last-$next";
- $last = $next = undef;
+ if ($last != $next) {
+ $res .= "$last-$next";
+ } else {
+ $res .= "$last";
+ }
+ $last = $next = $cpu;
}
}