Mercurial > hg > skillbot
comparison skillbot.pl @ 54:9ed1e53a8d3e
Safety checks in hash sort
author | Dominic Cleal <dominic@computerkb.co.uk> |
---|---|
date | Sat, 27 Dec 2008 23:45:55 +0000 |
parents | d5872370102a |
children | c5ce2fff9b85 |
comparison
equal
deleted
inserted
replaced
53:d5872370102a | 54:9ed1e53a8d3e |
---|---|
229 if ($msg =~ /^\!eta(\s+(.+))?/i) { | 229 if ($msg =~ /^\!eta(\s+(.+))?/i) { |
230 my $found = 0; | 230 my $found = 0; |
231 | 231 |
232 my @filtered = | 232 my @filtered = |
233 sort { | 233 sort { |
234 $a->{skill}->finish_time <=> $b->{skill}->finish_time | 234 (defined $a->{skill} && defined $b->{skill}) |
235 ? $a->{skill}->finish_time <=> $b->{skill}->finish_time | |
236 : 0 | |
235 } | 237 } |
236 grep { | 238 grep { |
237 ((defined $2 && (lc($_->{char}->name) eq lc($2) | 239 ((defined $2 && (lc($_->{char}->name) eq lc($2) |
238 || lc($2) eq 'all' || lc($2) eq '*')) | 240 || lc($2) eq 'all' || lc($2) eq '*')) |
239 || (!defined $2 && $_->{nick} eq $their_nick)) | 241 || (!defined $2 && $_->{nick} eq $their_nick)) |