summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-01-23 16:58:37 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-01-23 16:58:37 +0000
commit4337b5a01d65a272bc73272c8e8f1271ec3af1ce (patch)
treeaa4a87939210dd38052be3c79b3bf66ab1d84ee6 /perl-install
parentbd18cdd0b07c291c9b5bd7a852dd2024a286b910 (diff)
downloaddrakx-4337b5a01d65a272bc73272c8e8f1271ec3af1ce.tar
drakx-4337b5a01d65a272bc73272c8e8f1271ec3af1ce.tar.gz
drakx-4337b5a01d65a272bc73272c8e8f1271ec3af1ce.tar.bz2
drakx-4337b5a01d65a272bc73272c8e8f1271ec3af1ce.tar.xz
drakx-4337b5a01d65a272bc73272c8e8f1271ec3af1ce.zip
better fix of ->isa use
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/common.pm2
1 files changed, 1 insertions, 1 deletions
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;