applications/urxvt-perls
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

matcher.pattern. starts from 0

Browse Source
This commit is contained in:
komar 2014-05-01 16:59:31 +02:00 committed by Bert Münnich
parent 5419db7608
commit 25c42de9e8
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
url-select
View File

@ -62,8 +62,8 @@ sub on_start {
if ($self->x_resource('matcher.pattern')) { if ($self->x_resource('matcher.pattern')) {
@{$self->{pattern}} = ($self->x_resource('matcher.pattern')); @{$self->{pattern}} = ($self->x_resource('matcher.pattern'));
} elsif ($self->x_resource('matcher.pattern.1')) { } elsif ($self->x_resource('matcher.pattern.0')) {
my $current = 1; my $current = 0;
while (defined (my $res = $self->x_resource("matcher.pattern.$current"))) { while (defined (my $res = $self->x_resource("matcher.pattern.$current"))) {
$res = $self->locale_decode($res); $res = $self->locale_decode($res);