From 9af123300c24bfe744f79b8a83cf728bf103ed76 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux 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(-) 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