diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2004-12-16 13:18:12 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2004-12-16 13:18:12 +0000 |
commit | 74427d8bf7f8723ada0cb714933a92aa524d2fd9 (patch) | |
tree | 8e1fc3af800e756b295196b6b68e34990b3be39c /perl-install | |
parent | 6519bbb04bf178e4420ae4d0996081fa5ea4dd8c (diff) | |
download | drakx-74427d8bf7f8723ada0cb714933a92aa524d2fd9.tar drakx-74427d8bf7f8723ada0cb714933a92aa524d2fd9.tar.gz drakx-74427d8bf7f8723ada0cb714933a92aa524d2fd9.tar.bz2 drakx-74427d8bf7f8723ada0cb714933a92aa524d2fd9.tar.xz drakx-74427d8bf7f8723ada0cb714933a92aa524d2fd9.zip |
remove debug code
Diffstat (limited to 'perl-install')
-rw-r--r-- | perl-install/mygtk2.pm | 1 |
1 files changed, 0 insertions, 1 deletions
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 { |