From 0bdfc0a66e8fb4980ba37a7984beef534b568e3f Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Fri, 27 Aug 2004 06:58:06 +0000
Subject: remove useless label "the_end"

---
 perl-install/standalone/localedrake | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

(limited to 'perl-install/standalone/localedrake')

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);
-
-
-- 
cgit v1.2.1