From cff4a7f4a77a466cbd53a77869ff34663b2dcd95 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Fri, 6 Aug 2004 07:05:28 +0000
Subject: (Gtk2::ComboBox->set_text) better error message

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

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

diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 562247d02..fbea04663 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -1678,7 +1678,7 @@ sub set_text {
 	my $val_index = find_index { $_ eq $val } @{$w->{strings}};
 	$w->set_active($val_index);
     };
-    warn $@ if $@;
+    warn qq(impossible to lookup "$val":\n$@) if $@;
 }
 
 
-- 
cgit v1.2.1