--- deliantra/server/ext/magic_mapping.ext	2009/11/09 00:14:48	1.3
+++ deliantra/server/ext/magic_mapping.ext	2010/10/12 05:09:54	1.4
@@ -9,6 +9,9 @@
    on_cast_spell => sub {
       my ($spell, $who, $caster, $dir, $arg) = @_;
 
+      my $pl = $caster->contr
+         or return;
+
       my ($map, $x, $y) = ($who->map, $who->x, $who->y);
 
       # dirty check, should maybe allow tiled outdoor maps?
@@ -16,7 +19,6 @@
          or return;
 
       my $bird = cf::object::new "magic_mapper";
-      my $pl = $caster->contr;
       my $dist = 0;
       $caster->speed_left (-1); $pl->fire_on (0); $pl->run_on (0);