--- deliantra/maps/perl/dm-support.ext	2006/07/19 08:52:57	1.2
+++ deliantra/maps/perl/dm-support.ext	2006/07/21 10:47:02	1.3
@@ -1,7 +1,5 @@
 #! perl
 
-# untested dm support extension
-
 use Storable qw/nfreeze thaw/;
 
 my %global; # for use by eval'ed commands
@@ -11,7 +9,7 @@
 
    my ($token, $data) = split / /, $data, 2;
 
-   unless ($pl->flag (cf::FLAG_WIZ)) {
+   unless ($pl->ob->flag (cf::FLAG_WIZ)) {
       $pl->send ("ext $token error permission denied");
       return;
    }
@@ -21,6 +19,6 @@
    $arg = eval { thaw $arg };
    my @res = eval $code;
 
-   $@ ? $pl->send ("ext $token error " . nfreeze $@)
+   $@ ? $pl->send ("ext $token error $@")
       : $pl->send ("ext $token ok " . nfreeze \@res);
 };