Remove magic positioning from parse_list and friends

1 files changed, 3 insertions, 3 deletions

diff --git a/Plugin/Map.pm b/Plugin/Map.pm
index 3401f0f..c8708e2 100644
--- a/Plugin/Map.pm
+++ b/Plugin/Map.pm
@@ -24,10 +24,10 @@ sub map {
 
 	return "Syntax: map command [item1, item2, ...]" unless $command and $subjects_raw;
 
-	my ($e, $from, $to, @subjects) = ListParser::parse_list($subjects_raw);
-	return $e if $e;
+	my $parsed = ListParser::parse_list($subjects_raw);
+	return $parsed->{error} if $parsed->{error};
 
-	my @results = map { $run_command->("$command $_", $who, $where, $ided) } @subjects;
+	my @results = map { $run_command->("$command $_", $who, $where, $ided) } @{$parsed->{array}};
 	return "[" . (join ", ", @results). "]";
 }
 1;