From 34ae181a0a06d94132f9bcf4f99c87a1afa8518b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bert=20M=C3=BCnnich?= <ber.t@posteo.de>
Date: Mon, 7 Apr 2014 21:01:29 +0200
Subject: [PATCH] url-select: fixed underlining of URLs, fixes issue #47

---
 url-select | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/url-select b/url-select
index fc333e9..f4ddda8 100644
--- a/url-select
+++ b/url-select
@@ -95,8 +95,7 @@ sub line_update {
 	for my $pattern (@{$self->{pattern}}) {
 		while ($text =~ /$pattern/g) {
 			my $url = $&;
-			my ($beg, $end) = ($-[1], $+[1] - 1);
-			--$end if $url =~ /["')]$/;
+			my ($beg, $end) = ($-[0], $+[0] - 1);
 
 			for (@{$rend}[$beg .. $end]) {
 				$_ |= urxvt::RS_Uline;