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

Nicer living

Browse Source
This commit is contained in:
Bert Münnich 2014-01-21 22:26:25 +01:00
parent f11de4f9f3
commit 6481d92137
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
url-select
View File

@ -44,8 +44,9 @@ sub on_start {
} }
$self->{state} = 0; $self->{state} = 0;
for my $mod (split '', $self->x_resource("url-select.button") || for my $mod (split '', $self->x_resource("url-select.button") ||
$self->x_resource("matcher.button") || 2) { $self->x_resource("matcher.button") || 2) {
if ($mod =~ /^\d+$/) { if ($mod =~ /^\d+$/) {
$self->{button} = $mod; $self->{button} = $mod;
} elsif ($mod eq "C") { } elsif ($mod eq "C") {
@ -55,7 +56,7 @@ sub on_start {
} elsif ($mod eq "M") { } elsif ($mod eq "M") {
$self->{state} |= $self->ModMetaMask; $self->{state} |= $self->ModMetaMask;
} elsif ($mod ne "-" && $mod ne " ") { } elsif ($mod ne "-" && $mod ne " ") {
warn("$mod is invalid button/modifier in $self->{_name}<$self->{argv}[0]>\n"); warn("invalid button/modifier in $self->{_name}<$self->{argv}[0]>: $mod\n");
} }
} }