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

xyb3rt · May 24, 2014 · 5419db7 · 5419db7
1 parent 34ae181
commit 5419db7
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/url-select b/url-select
@@ -65,8 +65,10 @@ sub on_start {
 	} elsif ($self->x_resource('matcher.pattern.1')) {
 		my $current = 1;
 
-		while ($self->x_resource("matcher.pattern.$current")) {
-			push @{$self->{pattern}}, $self->x_resource("matcher.pattern.$current");
+		while (defined (my $res = $self->x_resource("matcher.pattern.$current"))) {
+			$res = $self->locale_decode($res);
+			utf8::encode $res;
+			push @{$self->{pattern}}, qr($res)x;
 			$current++;
 		}
 	} else {