From 459eedd7dc7ef289f379d2fc1dc691a057d1e144 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 18 Nov 2004 13:25:45 +0000
Subject: remove some unneeded ";", add some for normalization (as told by
 perl_checker)

---
 perl-install/interactive/gtk.pm   | 2 +-
 perl-install/interactive/newt.pm  | 2 +-
 perl-install/interactive/stdio.pm | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

(limited to 'perl-install/interactive')

diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index 871541697..2856bc955 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -699,7 +699,7 @@ sub ask_fromW {
 		}
 	    }
 	    !$error;
-	}
+	};
     };
 
     $_->{set}->($_->{e}{saved_default_val} || next) foreach @widgets_always, @widgets_advanced;
diff --git a/perl-install/interactive/newt.pm b/perl-install/interactive/newt.pm
index c9da9c92a..694c6c2c6 100644
--- a/perl-install/interactive/newt.pm
+++ b/perl-install/interactive/newt.pm
@@ -95,7 +95,7 @@ sub ask_fromW {
 	    my @choices = map {
 		my $s = simplify_string(may_apply($_->{format}, ${$_->{val}}));
 		$s = "$_->{label}: $s" if $_->{label};
-		{ label => $s, clicked_may_quit => $_->{clicked_may_quit} }
+		{ label => $s, clicked_may_quit => $_->{clicked_may_quit} };
 	    } @$l;
 	    #- replace many buttons with a list
 	    my $new_l = [ { val => \$r, type => 'list', list => \@choices, format => sub { $_[0]{label} }, sort => 0 } ];
diff --git a/perl-install/interactive/stdio.pm b/perl-install/interactive/stdio.pm
index 8fd7a43ef..d9de3325f 100644
--- a/perl-install/interactive/stdio.pm
+++ b/perl-install/interactive/stdio.pm
@@ -19,7 +19,7 @@ sub readln() {
 
 sub check_it {
     my ($i, $n) = @_;
-    $i =~ /^\s*\d+\s*$/ && 1 <= $i && $i <= $n
+    $i =~ /^\s*\d+\s*$/ && 1 <= $i && $i <= $n;
 }
 
 sub good_choice {
-- 
cgit v1.2.1