--- rxvt-unicode/src/perl/selection-popup	2006/01/19 21:03:34	1.16
+++ rxvt-unicode/src/perl/selection-popup	2006/01/20 10:27:08	1.17
@@ -74,6 +74,7 @@
          /^(http|ftp|telnet|irc|news):\//
             and $add_button->("run $self->{browser}" => sub { $self->exec_async ($self->{browser}, $_) });
 
+         warn "hook for $self $self->{term}\n";#d#
          for my $hook (@{ $self->{term}{selection_popup_hook} || [] }) {
             if (my ($title, $cb) = $hook->($popup)) {
                $add_button->($title, $cb);