Skip to content

Instantly share code, notes, and snippets.

diff --git a/lib/Ocean/Standalone/Handler/Room.pm b/lib/Ocean/Standalone/Handler/Room.pm
index ee9c9b3..31b3a09 100644
--- a/lib/Ocean/Standalone/Handler/Room.pm
+++ b/lib/Ocean/Standalone/Handler/Room.pm
@@ -224,7 +224,7 @@ sub on_room_invitation_decline {
my $builder = Ocean::Stanza::DeliveryRequestBuilder::RoomInvitationDecline->new;
$builder->room($room->name);
$builder->from($sender_jid);
- $builder->from($receiver_jid);
+ $builder->to($receiver_jid);
We couldn’t find that file to show.
#compdef perlbrew
typeset -A opt_args
local context state line
_arguments -C \
'(- 1 *)'{-h,--help}'[prints help]' \
'(-f --force)'{-f,--force}'[Force installation of a perl]' \
'(-q --quiet)'{-q,--quiet}'[Log output to a log file rather than STDOUT. This is the default.]' \
'(-v --verbose)'{-v,--verbose}'[Log output to STDOUT rather than a logfile]' \