+ my $what = $args[0];
+ my @slots;
+
+ if (defined $what) {
+ my @what1 = split /,/, $what;
+ foreach my $what1 (@what1) {
+ if ($what1 =~ /^(\d*)-(\d*)$/) {
+ my $begin = $1;
+ my $end = $2;
+ $end = $begin if $begin > $end;
+ while ($begin <= $end) {
+ push @slots, $begin;
+ $begin++;
+ }
+ } else {
+ push @slots, $what1;
+ }
+ }
+ }
+
+ my $use_slots = @slots > 0;
+
+ $chg = load_changer($finished_cb) or return;
+
+ my $steps = define_steps
+ cb_ref => \$finished_cb,
+ finalize => sub { $chg->quit() if defined $chg };