group step functions

1 files changed, 2 insertions, 1 deletions

diff --git a/transfugdrake b/transfugdrake
index 7e6ebfa..1b5fb95 100755
--- a/transfugdrake
+++ b/transfugdrake
@@ -28,7 +28,6 @@ my @step_items = (
     "background", [ "Wallpaper" ],
 );
 my @steps;
-sub next_step { shift(@steps) || 'end' }
 
 my $in = 'interactive'->vnew('su');
 my $wiz = wizards->new({
@@ -158,6 +157,8 @@ my $wiz = wizards->new({
 
 $wiz->process($in);
 
+sub next_step { shift(@steps) || 'end' }
+
 sub step_import {
     my ($stepname) = @_;
     my $step = find { $_->[0] eq $stepname } group_by2(@step_items);