| … | … | ||
|---|---|---|---|
| 199 | }; | 199 | }; |
| 200 | 200 | ||
| 201 | cf::register_command whereami => sub { | 201 | cf::register_command whereami => sub { |
| 202 | my ($ob) = @_; | 202 | my ($ob) = @_; |
| 203 | 203 | ||
| 204 | my $reg = $ob->region; | 204 | my $reg = $ob->contr->observe->region; |
| 205 | $ob->reply (undef, (sprintf "You are %s.\n%s", $reg->longname, $reg->msg)); | 205 | $ob->reply (undef, (sprintf "You are %s.\n%s", $reg->longname, $reg->msg)); |
| 206 | 206 | ||
| 207 | 1 | 207 | 1 |
| 208 | }; | 208 | }; |
| 209 | 209 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |