diff options
| -rwxr-xr-x | transfugdrake | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/transfugdrake b/transfugdrake index cb73020..6fa04d0 100755 --- a/transfugdrake +++ b/transfugdrake @@ -65,12 +65,7 @@ my $wiz = wizards->new({ list => \@linux_users, }, ], - post => sub { - @windows_items = transfugdrake::list_windows_items($windows_disk, $windows_user); - @steps = map { $_->[0] } grep { intersection(\@windows_items, $_->[1]) } group_by2(@step_items); - @steps or return 'nothing'; - next_step(); - }, + post => sub { first_step() }, }, files => { name => N("Migrate your Windows documents to your home directory. Documents can be imported by copying them, or they can be shared with the other operating system"), @@ -164,6 +159,12 @@ my $wiz = wizards->new({ $wiz->process($in); +sub first_step() { + @windows_items = transfugdrake::list_windows_items($windows_disk, $windows_user); + @steps = map { $_->[0] } grep { intersection(\@windows_items, $_->[1]) } group_by2(@step_items); + @steps ? next_step() : 'nothing'; +} + sub next_step() { shift(@steps) || 'end' } sub step_import { |