… | … | ||
---|---|---|---|
236 | 236 | ||
237 | sub msg { | 237 | sub msg { |
238 | my ($self, @msg) = @_; | 238 | my ($self, @msg) = @_; |
239 | 239 | ||
240 | if (my $ns = shift->{ns}) { | 240 | if (my $ns = shift->{ns}) { |
241 | return unless $ns->{json_coder};#d# | ||
241 | warn "msg " . $ns->{json_coder}->encode (\@msg) if $DEBUG;#d# | 242 | warn "msg " . $ns->{json_coder}->encode (\@msg) if $DEBUG;#d# |
242 | $ns->send_packet ("ext " . $ns->{json_coder}->encode (\@msg)); | 243 | $ns->send_packet ("ext " . $ns->{json_coder}->encode (\@msg)); |
243 | } | 244 | } |
244 | } | 245 | } |
245 | 246 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |