x11/rxvt-unicode/files/patch-src_perl_kuake


1
2
3
4
5
6
7
8
9
10
11
12

--- src/perl/kuake.orig	2021-05-14 16:08:01 UTC
+++ src/perl/kuake
@@ -44,7 +44,8 @@ sub on_start {
    $self->{keycode} = $self->XKeysymToKeycode ($self->{keysym})
       or urxvt::fatal "cannot convert requested kuake wake-up key '$self->{key}' to keycode, unable to continue.\n";
 
-   $self->XGrabKey ($self->{keycode}, urxvt::AnyModifier, $self->DefaultRootWindow);
+   $self->XGrabKey ($self->{keycode}, urxvt::AnyModifier, $self->DefaultRootWindow)
+      or urxvt::fatal "cannot grab requested kuake wake-up key '$self->{keycode}' (attempt to access private resource denied), unable to continue.\n";
 
    $self->XUnmapWindow ($self->parent);