| … | … | ||
|---|---|---|---|
| 529 | sub send_setup { | 529 | sub send_setup { |
| 530 | my ($self) = @_; | 530 | my ($self) = @_; |
| 531 | 531 | ||
| 532 | my $setup = join " ", setup => %{$self->{setup_req}}, | 532 | my $setup = join " ", setup => %{$self->{setup_req}}, |
| 533 | mapsize => "$self->{mapw}x$self->{maph}"; | 533 | mapsize => "$self->{mapw}x$self->{maph}"; |
| 534 | warn "SET<$setup>\n";#d# | 534 | |
| 535 | $self->send ($setup); | 535 | $self->send ($setup); |
| 536 | } | 536 | } |
| 537 | 537 | ||
| 538 | =back | 538 | =back |
| 539 | 539 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |