From 8524fabd5308049f362cd42002b472f066c4e0f8 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 23 Jan 2003 13:05:48 +0000
Subject: remove use of UNIVERSAL::isa() (it is not much more complex with ref
 + ->isa, and UNIVERSAL::isa() would need a special case in perl_checker)

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

(limited to 'perl-install')

diff --git a/perl-install/common.pm b/perl-install/common.pm
index 7feadc532..9c6651486 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 && UNIVERSAL::isa($::o, 'interactive::gtk') ? c::dgettext_utf8($_, $s) : c::dgettext($_, $s);
+	my $s2 = $::isInstall && ref($::o) && $::o->isa('interactive::gtk') ? c::dgettext_utf8($_, $s) : c::dgettext($_, $s);
 	return $s2 if $s ne $s2;
     }
     $s;
-- 
cgit v1.2.1