Subversion Repositories psqlmessages

Compare Revisions

Ignore whitespace Rev 13 → Rev 14

/psqlmessages_v01/lib/perl/PsqlMessages/Messages.pm
1007,7 → 1007,9
# for the specified topic
sub topic_auth {
my ( $self, $topic ) = @_;
 
my $topic_auth = $self->_check_auth( 'Topic', $topic )
or return $self->_last_error;
# client list
my $shared = $self->_clients(1);
my $clients = $shared->{Data};