This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#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]' \ |