From ceb871336eec2484357a60c06bfc9cd68e00a0ce Mon Sep 17 00:00:00 2001
From: doy <doy@tozt.net>
Date: Sat, 6 Dec 2008 20:18:19 -0500
Subject: unambiguate @{ shift }

---
 lib/MooseX/Role/Matcher.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/MooseX/Role/Matcher.pm b/lib/MooseX/Role/Matcher.pm
index c6fe846..d39e388 100644
--- a/lib/MooseX/Role/Matcher.pm
+++ b/lib/MooseX/Role/Matcher.pm
@@ -16,7 +16,7 @@ my $default = $p->default_match;
 method _apply_to_matches => sub {
     my $on_match = shift;
     my $matcher = shift;
-    my @list = @{ shift };
+    my @list = @{ shift() };
     unshift @_, $default if (@_ % 2 == 1);
     $on_match->(sub { $matcher->(@_) }, @list);
 };
-- 
cgit v1.2.3-54-g00ecf