X-Git-Url: http://aymargeddon.de/gitweb/?p=aymargeddon%2Fcurrent.git;a=blobdiff_plain;f=src%2FAymCommand.pm;h=37dabba8829ee756c81e37f772aca04cac8bcf4a;hp=0ef438596bfca895478b35e925d57b4f40648da1;hb=3a5cba8399b9444f1260a39310304d5437c337c9;hpb=8f037c123df00f587fda88e656579bcf17c8e66b

diff --git a/src/AymCommand.pm b/src/AymCommand.pm
index 0ef4385..37dabba 100644
--- a/src/AymCommand.pm
+++ b/src/AymCommand.pm
@@ -234,7 +234,8 @@ sub move_with{
   # all mobiles which already move with this now move with the target
   if($target != 0){
     my $mob = $self->{-context}->mobiles_available($mobile->{'LOCATION'});
-    my $mobcount = $#{@$mob}+1;
+    # my $mobcount = $#{@$mob}+1;
+    my $mobcount = @$mob;
     for my $i (0..$mobcount-1){
       my ($oid,$otype,$oown,$oado,$ocnt,$ostat,$omove) = @{$mob->[$i]};
       next if($omove != $id);