GitHub/pbot
3
0
Fork 0
mirror of https://github.com/pragma-/pbot.git synced 2024-12-25 04:02:37 +01:00
Code Issues Projects Releases Wiki Activity

Add explicit dereferences

Browse Source
This commit is contained in:
Pragmatic Software 2016-02-25 00:46:55 -08:00
parent fb846a36ed
commit 76d9184c1d
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
PBot/BanTracker.pm
View File

@ -104,8 +104,8 @@ sub get_baninfo {
my ($nick, $user, $host) = $mask =~ m/([^!]+)!([^@]+)@(.*)/; my ($nick, $user, $host) = $mask =~ m/([^!]+)!([^@]+)@(.*)/;
foreach my $mode (keys %{ $self->{banlist}{$channel} }) { foreach my $mode (keys %{ $self->{banlist}->{$channel} }) {
foreach my $banmask (keys %{ $self->{banlist}{$channel}{$mode} }) { foreach my $banmask (keys %{ $self->{banlist}->{$channel}->{$mode} }) {
if($banmask =~ m/^\$a:(.*)/) { if($banmask =~ m/^\$a:(.*)/) {
$ban_account = lc $1; $ban_account = lc $1;
} else { } else {
@ -138,8 +138,8 @@ sub get_baninfo {
my $baninfo = {}; my $baninfo = {};
$baninfo->{banmask} = $banmask_key; $baninfo->{banmask} = $banmask_key;
$baninfo->{channel} = $channel; $baninfo->{channel} = $channel;
$baninfo->{owner} = $self->{banlist}{$channel}{$mode}{$banmask_key}[0]; $baninfo->{owner} = $self->{banlist}->{$channel}->{$mode}->{$banmask_key}->[0];
$baninfo->{when} = $self->{banlist}{$channel}{$mode}{$banmask_key}[1]; $baninfo->{when} = $self->{banlist}->{$channel}->{$mode}->{$banmask_key}->[1];
$baninfo->{type} = $mode; $baninfo->{type} = $mode;
$self->{pbot}->{logger}->log("get-baninfo: dump: " . Dumper($baninfo) . "\n"); $self->{pbot}->{logger}->log("get-baninfo: dump: " . Dumper($baninfo) . "\n");