From 9af123300c24bfe744f79b8a83cf728bf103ed76 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sat, 15 Sep 2001 22:11:31 +0000
Subject: (enteringStep): do not translate in ja|ko|zh

---
 perl-install/install_steps_auto_install.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/install_steps_auto_install.pm b/perl-install/install_steps_auto_install.pm
index 8f0181626..d81675b31 100644
--- a/perl-install/install_steps_auto_install.pm
+++ b/perl-install/install_steps_auto_install.pm
@@ -74,7 +74,9 @@ sub configureNetwork {
 
 sub enteringStep {
     my ($o, $step) = @_;
-    print _("Entering step `%s'\n", translate($o->{steps}{$step}{text}));
+    my ($s, $t) = (__("Entering step `%s'\n"), $o->{steps}{$step}{text});
+    ($s, $t) = (translate($s), translate($t)) if $ENV{LANG} !~ /ja|ko|zh/;
+    print sprintf($s, $t);
     $o->install_steps::enteringStep($step);
 }
 
-- 
cgit v1.2.1