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

copy from 'matcher'. allow comments and spaces in patterns

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

6
url-select
View File

@ -65,8 +65,10 @@ sub on_start {
} elsif ($self->x_resource('matcher.pattern.1')) { } elsif ($self->x_resource('matcher.pattern.1')) {
my $current = 1; my $current = 1;
while ($self->x_resource("matcher.pattern.$current")) { while (defined (my $res = $self->x_resource("matcher.pattern.$current"))) {
push @{$self->{pattern}}, $self->x_resource("matcher.pattern.$current"); $res = $self->locale_decode($res);
utf8::encode $res;
push @{$self->{pattern}}, qr($res)x;
$current++; $current++;
} }
} else { } else {