fixed bug in participants()

polettix · Oct 1, 2012 · 5f5efbd · 5f5efbd
1 parent 5a8d2d9
commit 5f5efbd
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/lib/Narsil/Match.pm b/lib/Narsil/Match.pm
@@ -149,10 +149,16 @@ sub _flagify {
 sub participants {
    my $self = shift;
    my $p    = $self->_participants();
-   @$p = [@_] if @_;
+   @$p = @_ if @_;
    return @$p;
 } ## end sub participants
 
+sub set_participants {
+   my $self = shift;
+   @{$self->_participants()} = @_;
+   return $self;
+}
+
 sub add_participant {
    my ($self, $userid) = @_;
    push @{$self->_participants()}, $userid;