From 61f4a686cac3c69e70a2db9581e306353361416a Mon Sep 17 00:00:00 2001 From: Bert Date: Mon, 16 Aug 2010 19:50:58 +0200 Subject: [PATCH] url-select: version 1.3 --- url-select | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/url-select b/url-select index ef7553c..1daea11 100644 --- a/url-select +++ b/url-select @@ -2,7 +2,7 @@ # Author: Bert Muennich # Website: http://www.github.com/muennich/urxvt-perls # Based on: http://www.jukie.net/~bart/blog/urxvt-url-yank -# Version: 1.2 +# Version: 1.3 # License: GPLv2 # Use keyboard shortcuts to select URLs. @@ -230,8 +230,7 @@ sub status_area { my $row = $self->{row} < 0 ? $self->{row} - $self->top_row : abs($self->top_row) + $self->{row}; - my $text = sprintf("%d:%d/%d ", $row + 1, $self->{n} + 1, - $#{ $self->{found} } + 1); + my $text = sprintf("%d,%d ", $row + 1, $self->{n} + 1); if ($self->top_row == 0) { $text .= "All";