From 1c131849956ed81b1eebff595d7427783560a5ab Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Mon, 6 Sep 2004 11:29:04 +0000
Subject: drop lang::write()'s prefix parameter in favor of $::prefix (which
 was already partially done)

---
 perl-install/standalone/localedrake | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install/standalone/localedrake')

diff --git a/perl-install/standalone/localedrake b/perl-install/standalone/localedrake
index 2f1b22837..246499c32 100644
--- a/perl-install/standalone/localedrake
+++ b/perl-install/standalone/localedrake
@@ -24,7 +24,7 @@ if (defined $klang) {
     my $locale = lang::read($>);
     $klang and $locale->{lang} = $lang;
     $kcountry and $locale->{country} = $country;
-    lang::write('', $locale, $>, 'dont_touch_kde_files') if $apply;
+    lang::write($locale, $>, 'dont_touch_kde_files') if $apply;
 
     #- help KDE defaulting to the right charset
     print lang::charset2kde_charset(lang::l2charset($lang)), "\n";
@@ -59,7 +59,7 @@ if ($@) {
     }
 }
 
-lang::write('', $locale, $>);
+lang::write($locale, $>);
 if ($>) {
     if (my $wm = any::running_window_manager()) {
 	$in->ask_okcancel('', N("The change is done, but to be effective you must logout"), 1)
-- 
cgit v1.2.1