From 45c4d258d7f7d88a44387f614ef0cf401208ed69 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 11 Sep 2002 16:41:30 +0000
Subject: allow various textdomains for i18n

---
 perl-install/common.pm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/common.pm b/perl-install/common.pm
index a18eb41af..6104b0b34 100644
--- a/perl-install/common.pm
+++ b/perl-install/common.pm
@@ -46,7 +46,12 @@ sub unmakedev { $_[0] >> 8, $_[0] & 0xff }
 
 sub translate {
     my ($s) = @_;
-    $s ? c::dgettext('libDrakX', $s) : '';
+    $s or return '';
+    foreach ('libDrakX', @::textdomains) {
+	my $s2 = c::dgettext($_, $s);
+	return $s2 if $s ne $s2;
+    }
+    $s;
 }
 
 sub untranslate {
-- 
cgit v1.2.1