Tidy list indices

1 files changed, 1 insertions, 1 deletions

diff --git a/saxrobot b/saxrobot
index f60207a..3097a58 100755
--- a/saxrobot
+++ b/saxrobot
@@ -80,7 +80,7 @@ sub irc_public {
 }
 
 sub irc_msg {
-	my ($who, $to, $what, $ided) = @_[ARG0, ARG1, ARG2, ARG3];
+	my ($who, $to, $what, $ided) = @_[ARG0 .. ARG3];
 	my $nick = (split /!/, $who)[0];
 	if ($ided != 1) {
 		$irc->yield(privmsg => $nick => "You must identify with services");