aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.com>2007-07-31 16:37:02 +0000
committerOlivier Blin <oblin@mandriva.com>2007-07-31 16:37:02 +0000
commite3bbe5f38784573f15699863a83ea52ca15b6b0a (patch)
tree3054c8422b91bf9fb741351371f6ebe8a365afca
parent63f080d8802bd8e2f3dc74ed8e274e561b823603 (diff)
downloadtransfugdrake-e3bbe5f38784573f15699863a83ea52ca15b6b0a.tar
transfugdrake-e3bbe5f38784573f15699863a83ea52ca15b6b0a.tar.gz
transfugdrake-e3bbe5f38784573f15699863a83ea52ca15b6b0a.tar.bz2
transfugdrake-e3bbe5f38784573f15699863a83ea52ca15b6b0a.tar.xz
transfugdrake-e3bbe5f38784573f15699863a83ea52ca15b6b0a.zip
group step functions
-rwxr-xr-xtransfugdrake3
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);