From: Dave Rolsky <autarch@urth.org>
Date: Wed, 15 Sep 2010 17:03:36 +0000 (-0500)
Subject: Actually unshift curried args into @_
X-Git-Tag: 1.15~151
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=aada334de43c1964b1378425ab91a9398a12e3c6;p=gitmo%2FMoose.git

Actually unshift curried args into @_
---

diff --git a/lib/Moose/Meta/Method/Accessor/Native/Array.pm b/lib/Moose/Meta/Method/Accessor/Native/Array.pm
index 0380f59..fb249b7 100644
--- a/lib/Moose/Meta/Method/Accessor/Native/Array.pm
+++ b/lib/Moose/Meta/Method/Accessor/Native/Array.pm
@@ -17,7 +17,7 @@ sub _inline_curried_arguments {
 
     return q{} unless @{ $self->curried_arguments };
 
-    return "\@_ = ( \@curried, \@_ );";
+    return 'unshift @_, @curried;'
 }
 
 sub _inline_check_constraint {