sydney/Autobot
1
0 Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Switching to hashrefs.

Browse Source
This commit is contained in:
Elijah Perrault committed 2011-02-09 15:17:20 -07:00
1 parent 079f9dc5a9
commit f3f34699ff
1 file changed
+5 -5
Download Patch File Download Diff File Expand all files Collapse all files
src/Parser/IRC.pm
+5 -5
View File
@@ -332,7 +332,7 @@ sub cjoin
else { else {
# It isn't. Update chanusers and trigger on_rcjoin. # It isn't. Update chanusers and trigger on_rcjoin.
$chanusers{$svr}{substr $ex[2], 1}{$src{nick}} = 1; $chanusers{$svr}{substr $ex[2], 1}{$src{nick}} = 1;
API::Std::event_run("on_rcjoin", ($svr, %src, substr($ex[2], 1))); API::Std::event_run("on_rcjoin", ($svr, \%src, substr($ex[2], 1)));
} }
return 1; return 1;
@@ -378,7 +378,7 @@ sub kick
else { else {
# We weren't. Update chanusers and trigger on_kick. # We weren't. Update chanusers and trigger on_kick.
if (defined $chanusers{$svr}{$ex[2]}{$ex[3]}) { delete $chanusers{$svr}{$ex[2]}{$ex[3]}; } if (defined $chanusers{$svr}{$ex[2]}{$ex[3]}) { delete $chanusers{$svr}{$ex[2]}{$ex[3]}; }
API::Std::event_run("on_kick", ($svr, %src, $ex[2], $ex[3], $msg)); API::Std::event_run("on_kick", ($svr, \%src, $ex[2], $ex[3], $msg));
} }
return 1; return 1;
@@ -495,7 +495,7 @@ sub nick
delete $chanusers{$svr}{$chk}{$src{nick}}; delete $chanusers{$svr}{$chk}{$src{nick}};
} }
} }
API::Std::event_run("on_nick", ($svr, %src, $nex)); API::Std::event_run("on_nick", ($svr, \%src, $nex));
} }
return 1; return 1;
@@ -532,7 +532,7 @@ sub part
} }
# Trigger on_part. # Trigger on_part.
API::Std::event_run("on_part", ($svr, %src, $ex[2], $msg)); API::Std::event_run("on_part", ($svr, \%src, $ex[2], $msg));
return 1; return 1;
} }
@@ -642,7 +642,7 @@ sub topic
push(@argv, $ex[$i]); push(@argv, $ex[$i]);
} }
} }
API::Std::event_run("on_topic", ($svr, %src, @argv)); API::Std::event_run("on_topic", ($svr, \%src, @argv));
} }
return 1; return 1;