diff --git a/lib/Syntax/Keyword/Gather.pm b/lib/Syntax/Keyword/Gather.pm index c6dca9f..295c0ea 100644 --- a/lib/Syntax/Keyword/Gather.pm +++ b/lib/Syntax/Keyword/Gather.pm @@ -40,6 +40,7 @@ sub take(@) { my $caller = caller; croak "Call to take not inside a gather block" unless ((caller 3)[3]||"") eq 'Syntax::Keyword::Gather::gather'; + @_ = $_ unless @_; push @{$gatherers{$caller}[-1]}, @_; return 0+@_; }