From 74427d8bf7f8723ada0cb714933a92aa524d2fd9 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 16 Dec 2004 13:18:12 +0000 Subject: remove debug code --- perl-install/mygtk2.pm | 1 - 1 file changed, 1 deletion(-) diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm index f8f52f547..3d594ab7c 100644 --- a/perl-install/mygtk2.pm +++ b/perl-install/mygtk2.pm @@ -312,7 +312,6 @@ sub _gtk__ComboBox { if (my $text_ref = delete $opts->{text_ref}) { my $set = sub { my $val = may_apply($w->{format}, $$text_ref); - warn "setting $val\n"; eval { $w->set_active(find_index { $_ eq $val } @{$w->{formatted_list}}) }; }; $w->signal_connect(changed => sub { -- cgit v1.2.1