summaryrefslogtreecommitdiffstats
path: root/perl-install/mygtk2.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-12-16 13:18:12 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-12-16 13:18:12 +0000
commit74427d8bf7f8723ada0cb714933a92aa524d2fd9 (patch)
tree8e1fc3af800e756b295196b6b68e34990b3be39c /perl-install/mygtk2.pm
parent6519bbb04bf178e4420ae4d0996081fa5ea4dd8c (diff)
downloaddrakx-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/mygtk2.pm')
-rw-r--r--perl-install/mygtk2.pm1
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 {