… | |
… | |
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 | return unless $ns->{json_coder};#d# might be gone at destroy time(??) |
242 | warn "msg " . $ns->{json_coder}->encode (\@msg) if $DEBUG;#d# |
242 | warn "msg " . $ns->{json_coder}->encode (\@msg) if $DEBUG;#d# |
243 | $ns->send_packet ("ext " . $ns->{json_coder}->encode (\@msg)); |
243 | $ns->send_packet ("ext " . $ns->{json_coder}->encode (\@msg)); |
244 | } |
244 | } |
245 | } |
245 | } |
246 | |
246 | |