summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/localedrake
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-08-27 06:58:06 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-08-27 06:58:06 +0000
commit0bdfc0a66e8fb4980ba37a7984beef534b568e3f (patch)
tree1f2f4bace356bdb64b4913505d724a7b56b81d47 /perl-install/standalone/localedrake
parent1d301b9583c17fddb21fea96adba305d354479e5 (diff)
downloaddrakx-backup-do-not-use-0bdfc0a66e8fb4980ba37a7984beef534b568e3f.tar
drakx-backup-do-not-use-0bdfc0a66e8fb4980ba37a7984beef534b568e3f.tar.gz
drakx-backup-do-not-use-0bdfc0a66e8fb4980ba37a7984beef534b568e3f.tar.bz2
drakx-backup-do-not-use-0bdfc0a66e8fb4980ba37a7984beef534b568e3f.tar.xz
drakx-backup-do-not-use-0bdfc0a66e8fb4980ba37a7984beef534b568e3f.zip
remove useless label "the_end"
Diffstat (limited to 'perl-install/standalone/localedrake')
-rw-r--r--perl-install/standalone/localedrake9
1 files changed, 2 insertions, 7 deletions
diff --git a/perl-install/standalone/localedrake b/perl-install/standalone/localedrake
index 2e5c0d711..365eeba18 100644
--- a/perl-install/standalone/localedrake
+++ b/perl-install/standalone/localedrake
@@ -42,13 +42,13 @@ eval {
local $::isWizard = 1;
local $::Wizard_no_previous = 1;
language:
- $locale->{lang} = any::selectLanguage($in, $locale->{lang}) or goto the_end;
+ $locale->{lang} = any::selectLanguage($in, $locale->{lang}) or $in->exit(0);
undef $::Wizard_no_previous;
select_country() or goto language;
};
if ($@) {
if ($@ =~ /^one lang only/) {
- select_country() or goto the_end;
+ select_country() or $in->exit(0);
} else {
die;
}
@@ -61,8 +61,3 @@ if ($>) {
and any::ask_window_manager_to_logout($wm);
}
}
-
-the_end:
-$in->exit(0);
-
-