| … | |
… | |
| 60 | or return; |
60 | or return; |
| 61 | my $x = $ob->x; |
61 | my $x = $ob->x; |
| 62 | my $y = $ob->y; |
62 | my $y = $ob->y; |
| 63 | |
63 | |
| 64 | # never happens normally, but helps when shell users make mistakes |
64 | # never happens normally, but helps when shell users make mistakes |
| 65 | $m->in_memory == cf::MAP_ACTIVE |
65 | $m->linkable |
| 66 | or return 1; |
66 | or return 1; |
| 67 | |
67 | |
| 68 | # return 0;#d# |
68 | # return 0;#d# |
| 69 | # warn join ":", $m->at ($x, $y);#d# |
69 | # warn join ":", $m->at ($x, $y);#d# |
| 70 | # warn "FOO$m { ".scalar ($m->at ($x, $y))." }\n"; |
70 | # warn "FOO$m { ".scalar ($m->at ($x, $y))." }\n"; |
