From 368c962f722853ee0ba371d37e5ba0396e83b900 Mon Sep 17 00:00:00 2001 From: David Phillips Date: Mon, 24 Sep 2018 21:11:59 +1200 Subject: Remove magic positioning from parse_list and friends --- Plugin/Map.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'Plugin') 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; -- cgit v1.1