diff options
-rw-r--r-- | AnyEvent-I3/lib/AnyEvent/I3.pm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/AnyEvent-I3/lib/AnyEvent/I3.pm b/AnyEvent-I3/lib/AnyEvent/I3.pm index 1f4e5bd3..0a272300 100644 --- a/AnyEvent-I3/lib/AnyEvent/I3.pm +++ b/AnyEvent-I3/lib/AnyEvent/I3.pm @@ -315,6 +315,11 @@ sub subscribe { # Register callbacks for each message type for my $key (keys %{$callbacks}) { + if (!exists $events{$key}) { + warn "Could not subscribe to event type '$key'." . + " Supported events are " . join(" ", sort keys %events), $/; + next; + } my $type = $events{$key}; $self->{callbacks}->{$type} = $callbacks->{$key}; } |