From 3a598bd7c7b58aac70e31c3481c85264d2bcb2f8 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 6 Sep 1999 22:04:20 +0000
Subject: no_comment

---
 perl-install/lang.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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

diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index d7a5c1eb8..7de6917a2 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -109,10 +109,10 @@ sub text2lang {
 }
 
 sub set {
-    my $lang = shift;
+    my ($lang) = @_;
 
     if ($lang) {
-	$ENV{LC_ALL}    = $lang;                
+	$ENV{LC_ALL}    = $lang;
 	$ENV{LANG}      = $languages{$lang}[2]; 
 	$ENV{LANGUAGES} = $languages{$lang}[3]; 
 	if (my $f = $languages{$lang}[1]) { load_font($f) }
@@ -158,7 +158,7 @@ sub load_font {
     my $fontSet = "*-helvetica-medium-r-normal--14-*-*-*-*-iso8859-1";
 
     if (my $c = $charsets{$charset}) {
-	log::l("loading " . $c . " font");
+	log::l("loading $charset font");
         $fontFile = $c->[0];
 	$fontSet  = $c->[2]; 
     }
-- 
cgit v1.2.1