summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-08-30 02:22:31 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-08-30 02:22:31 +0000
commitae3a5a6bde3be6c52670c358c147376eef7581a7 (patch)
tree939d095e36fd40ae4d95d0026a615207f35543ef
parent8fffb0869d3bc235f9c6da1f8664a806c055d110 (diff)
downloaddrakx-backup-do-not-use-ae3a5a6bde3be6c52670c358c147376eef7581a7.tar
drakx-backup-do-not-use-ae3a5a6bde3be6c52670c358c147376eef7581a7.tar.gz
drakx-backup-do-not-use-ae3a5a6bde3be6c52670c358c147376eef7581a7.tar.bz2
drakx-backup-do-not-use-ae3a5a6bde3be6c52670c358c147376eef7581a7.tar.xz
drakx-backup-do-not-use-ae3a5a6bde3be6c52670c358c147376eef7581a7.zip
(Gtk2::ComboBox::set_text) explain which caller failled
-rw-r--r--perl-install/ugtk2.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 245d5c4e2..bef9fe9ea 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -1683,7 +1683,7 @@ sub set_text {
my $val_index = find_index { $_ eq $val } @{$w->{strings}};
$w->set_active($val_index);
};
- warn qq(impossible to lookup "$val":\n$@) if $@;
+ internal_error(qq(impossible to lookup "$val":\n\t) . chomp_($@)) if $@;
}