From: root <root>
Date: Tue, 31 Jan 2006 15:28:40 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Url: http://git.openbox.org/?a=commitdiff_plain;h=3c08c486ad11a85ad2180789eaa4530fa73cdbc3;p=dana%2Furxvt.git

*** empty log message ***
---

diff --git a/src/perl/mark-urls b/src/perl/mark-urls
index bfd47f14..200007d5 100644
--- a/src/perl/mark-urls
+++ b/src/perl/mark-urls
@@ -39,16 +39,17 @@ sub on_line_update {
 
 sub on_button_release {
     my ($self, $event) = @_;
-    my $row = $event->{row};
-    my $col = $event->{col};
 
-    my $line = $self->line ($row);
-    my $text = $line->t;
-    
     my $mask = $self->ModLevel3Mask | $self->ModMetaMask
              | urxvt::ShiftMask | urxvt::ControlMask;
 
     if ($event->{button} == 2 && ($event->{state} & $mask) == 0) {
+       my $row = $event->{row};
+       my $col = $event->{col};
+
+       my $line = $self->line ($row);
+       my $text = $line->t;
+    
        while ($text =~ /$url/g) {
            if ($-[1] <= $col && $+[1] >= $col) {
                $self->exec_async ($self->{browser}, $1);