X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMoose%2FMeta%2FMethod%2FAccessor%2FNative%2FArray%2Fsort_in_place.pm;h=b536a242b2dbae52326dcb343ebce4f736e9bd83;hb=bb09ad9144e7ee7b2cad8a90725267f591346406;hp=41ab90fb89c6f0ac8e6ad579244589ff0554a83a;hpb=7f5ec80d99caad6df365a018719f875465358f17;p=gitmo%2FMoose.git

diff --git a/lib/Moose/Meta/Method/Accessor/Native/Array/sort_in_place.pm b/lib/Moose/Meta/Method/Accessor/Native/Array/sort_in_place.pm
index 41ab90f..b536a24 100644
--- a/lib/Moose/Meta/Method/Accessor/Native/Array/sort_in_place.pm
+++ b/lib/Moose/Meta/Method/Accessor/Native/Array/sort_in_place.pm
@@ -5,7 +5,7 @@ use warnings;
 
 use Params::Util ();
 
-our $VERSION = '1.15';
+our $VERSION = '1.17';
 $VERSION = eval $VERSION;
 our $AUTHORITY = 'cpan:STEVAN';
 
@@ -37,7 +37,7 @@ sub _potential_value {
     my ( $self, $slot_access ) = @_;
 
     return
-        "[ \$_[0] ? sort { \$_[0]->( \$a, \$b ) } \@{ $slot_access } : sort \@{ $slot_access} ]";
+        "[ \$_[0] ? sort { \$_[0]->( \$a, \$b ) } \@{ ($slot_access) } : sort \@{ ($slot_access) } ]";
 }
 
 sub _return_value { return q{} }