From 68c9c8ddc92a4ea355b026413bb104eb6c689ea2 Mon Sep 17 00:00:00 2001
From: Matthias Bloch <matthias.bloch@puffin.ch>
Date: Sat, 1 Mar 2014 10:48:17 +0100
Subject: [PATCH] "take" instead of "take $_"

---
 lib/Syntax/Keyword/Gather.pm | 1 +
 1 file changed, 1 insertion(+)

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+@_;
 }