--- deliantra/maps/perl/follow.ext	2006/03/20 22:49:26	1.12
+++ deliantra/maps/perl/follow.ext	2006/03/25 04:47:56	1.15
@@ -63,11 +63,11 @@
    my $ob = $event->{who};
    my $name = $ob->name;
 
-   delete $follow->{$name};
+   delete $follow{$name};
 
-   while (my ($name, $v) = each %follow) {
+   while (my ($k, $v) = each %follow) {
       if ($v->[0] eq $name) {
-         delete $follow{$name};
+         delete $follow{$k};
       }
    }
 
@@ -77,7 +77,7 @@
 sub on_clock {
    my ($event) = @_;
 
-   return unless %follow;
+   return 0 unless %follow;
 
    while (my ($name, $v) = each %follow) {
       my ($target, $his, $mine) = @$v;