--- rxvt-unicode/src/perl/option-popup 2006/01/08 00:27:47 1.1 +++ rxvt-unicode/src/perl/option-popup 2006/01/08 00:29:58 1.2 @@ -16,7 +16,7 @@ my $optval = $urxvt::OPTION{$name}; - $popup->add_toggle ($name => sub { $self->option ($optval, $_[0]); warn "toggle $optval, $_[0]" }, + $popup->add_toggle ($name => sub { $self->option ($optval, $_[0]) }, $self->option ($optval)); }