From 4337b5a01d65a272bc73272c8e8f1271ec3af1ce Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 23 Jan 2003 16:58:37 +0000
Subject: better fix of ->isa use

---
 perl-install/common.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/common.pm')

diff --git a/perl-install/common.pm b/perl-install/common.pm
index 9c6651486..5fa23c479 100644
--- a/perl-install/common.pm
+++ b/perl-install/common.pm
@@ -55,7 +55,7 @@ sub translate {
     my ($s) = @_;
     $s or return '';
     foreach ('libDrakX', @::textdomains) {
-	my $s2 = $::isInstall && ref($::o) && $::o->isa('interactive::gtk') ? c::dgettext_utf8($_, $s) : c::dgettext($_, $s);
+	my $s2 = $::isInstall && eval { $::o->isa('interactive::gtk') } ? c::dgettext_utf8($_, $s) : c::dgettext($_, $s);
 	return $s2 if $s ne $s2;
     }
     $s;
-- 
cgit v1.2.1