From a510a01b688f3a7af5f3abf41748f2f9a096ca44 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 11 Aug 2004 06:37:14 +0000
Subject: perl_checker compliance

---
 perl-install/any.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/perl-install/any.pm b/perl-install/any.pm
index f723435f0..349606f4c 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -665,7 +665,7 @@ when your installation is complete and you restart your system.")),
 	$in->ask_from_($common,
 	[ { val => \$lang, separator => '|', 
 	    if_($using_images, image2f => sub { $name2l{$_[0]} =~ /^[a-z]/ ? ('', "langs/lang-$name2l{$_[0]}") : $_[0] }),
-	    format => sub { $_[0] =~ /(.*\|)(.*)/ ? $1.lang::l2name($2) : lang::l2name($_[0]) },
+	    format => sub { $_[0] =~ /(.*\|)(.*)/ ? $1 . lang::l2name($2) : lang::l2name($_[0]) },
 	    list => \@langs, sort => 0 },
 	    if_($o_langs_ && !$::move,
                 { val => \$in->{locale}{utf8}, type => 'bool', text => N("Use Unicode by default"), advanced => 1 },
-- 
cgit v1.2.1