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

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

diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index 1d658eda3..35a83905a 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -483,7 +483,7 @@ sub interactive_help_has_id {
 sub interactive_help_get_id {
     my ($_o, @l) = @_;
     @l = map { 
-	join("\n\n", map { s/\n/ /mg; $_ } split("\n\n", translate($help::{$_}->())))
+	join("\n\n", map { s/\n/ /mg; $_ } split("\n\n", translate($help::{$_}->())));
     } grep { exists $help::{$_} } @l;
     join("\n\n\n", @l);
 }
-- 
cgit v1.2.1