diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-08-27 06:58:06 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-08-27 06:58:06 +0000 |
| commit | 0bdfc0a66e8fb4980ba37a7984beef534b568e3f (patch) | |
| tree | 1f2f4bace356bdb64b4913505d724a7b56b81d47 /perl-install | |
| parent | 1d301b9583c17fddb21fea96adba305d354479e5 (diff) | |
| download | drakx-0bdfc0a66e8fb4980ba37a7984beef534b568e3f.tar drakx-0bdfc0a66e8fb4980ba37a7984beef534b568e3f.tar.gz drakx-0bdfc0a66e8fb4980ba37a7984beef534b568e3f.tar.bz2 drakx-0bdfc0a66e8fb4980ba37a7984beef534b568e3f.tar.xz drakx-0bdfc0a66e8fb4980ba37a7984beef534b568e3f.zip | |
remove useless label "the_end"
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/standalone/localedrake | 9 |
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); - - |