diff options
| author |   William Heimbigner <william.heimbigner@gmail.com> | 2007-07-04 02:00:24 +0000 |
|---|---|---|
| committer | William Heimbigner <william.heimbigner@gmail.com> | 2007-07-04 02:00:24 +0000 |
| commit | 2e39d5b2b95c2e705fd962c9752070f816c1dfec (patch) | |
| tree | 64d6fde2a4cd488d7add12ca4897daee216777ae /modules/inspect.pl | |
| parent | 6fe4d3ecbdc3196c7c62b9b7e00d5063bd0dbee9 (diff) | |
critical bug fix + code optimizations
Diffstat (limited to 'modules/inspect.pl')
| -rw-r--r-- | modules/inspect.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/modules/inspect.pl b/modules/inspect.pl index a5fd732..bed8a46 100644 --- a/modules/inspect.pl +++ b/modules/inspect.pl @@ -3,6 +3,7 @@ use warnings; use strict; use Data::Dumper; +use List::Util qw(first); %::ignored = (); sub new @@ -23,7 +24,7 @@ sub inspect { my @override = []; our $unmode=''; my $nick = lc $event->{nick}; - return if (defined($::eline{$nick}) || defined($::eline{lc $event->{user}}) || defined(lc $event->{host})); + return if (defined($::eline{$nick}) || defined($::eline{lc $event->{user}}) || defined($::eline{lc $event->{host}})); $iaddr = gethostbyname($event->{host}); $rev = join('.', reverse(unpack('C4', $iaddr))).'.' if (defined $iaddr); %monx = defined($::channels->{channel}->{master}->{event}) ? %{$::channels->{channel}->{master}->{event}} : (); |