| … | … | ||
|---|---|---|---|
| 61 | my ($event) = @_; | 61 | my ($event) = @_; |
| 62 | 62 | ||
| 63 | my $ob = $event->{who}; | 63 | my $ob = $event->{who}; |
| 64 | my $name = $ob->name; | 64 | my $name = $ob->name; |
| 65 | 65 | ||
| 66 | delete $follow->{$name}; | 66 | delete $follow{$name}; |
| 67 | 67 | ||
| 68 | while (my ($name, $v) = each %follow) { | 68 | while (my ($k, $v) = each %follow) { |
| 69 | if ($v->[0] eq $name) { | 69 | if ($v->[0] eq $name) { |
| 70 | delete $follow{$name}; | 70 | delete $follow{$k}; |
| 71 | } | 71 | } |
| 72 | } | 72 | } |
| 73 | 73 | ||
| 74 | 0 | 74 | 0 |
| 75 | } | 75 | } |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |