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/newt.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/interactive/newt.pm')

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