/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}; |