From 87bcf74b039effce95dc2bf8152a48d49ca6bb1e Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Wed, 4 Aug 2004 02:15:00 +0000
Subject: (Gtk2::ComboBox->set_text) actually print a warning if we failled

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

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

diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index e815c7a4d..c8475ed5b 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -1677,6 +1677,7 @@ sub set_text {
 	my $val_index = find_index { $_ eq $val } @{$w->{strings}};
 	$w->set_active($val_index);
     };
+    warn $@ if $@;
 }
 
 
-- 
cgit v1.2.1