From ae3a5a6bde3be6c52670c358c147376eef7581a7 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 30 Aug 2004 02:22:31 +0000 Subject: (Gtk2::ComboBox::set_text) explain which caller failled --- perl-install/ugtk2.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install') 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 $@; } -- cgit v1.2.1