1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/common.pm b/perl-install/common.pm
index 36628d900..fedf68926 100644
--- a/perl-install/common.pm
+++ b/perl-install/common.pm
@@ -1,6 +1,7 @@
 package common; # $Id$
 
 use MDK::Common;
+use Locale::gettext();
 use diagnostics;
 use strict;
 
@@ -59,7 +60,7 @@ sub translate_real {
     my ($s) = @_;
     $s or return '';
     foreach (@::textdomains, 'libDrakX') {
-	my $s2 = c::dgettext($_, $s);
+	my $s2 = Locale::gettext::dgettext($_, $s);
 	return $s2 if $s ne $s2;
     }
     $s;