From dcde5a309b7c2e25d05d4a8bc830c350275dfdda Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 15 Feb 2002 23:48:02 +0000
Subject: lang::write doesn't need the filename anymore

---
 perl-install/standalone/localedrake | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/standalone/localedrake b/perl-install/standalone/localedrake
index 4f3ae4a32..b3c94d5cb 100644
--- a/perl-install/standalone/localedrake
+++ b/perl-install/standalone/localedrake
@@ -14,7 +14,7 @@ my $file = $> ? "$ENV{HOME}/.i18n" : '/etc/sysconfig/i18n';
 my ($lang, $langs) = lang::read('', $file);
 $langs = '' if $>;
 if ($lang = any::selectLanguage($in, $lang, $langs)) {
-    lang::write('', $lang, $file, $>);
+    lang::write('', $lang, $>);
     lang::write_langs('', $langs) if $langs;
 	if ($>) {
 		if (my $wm = any::running_window_manager()) {
-- 
cgit v1.2.1