[perl #64268] tests available

[kyleha]

This is an automatically generated mail to inform you that tests are now 
available in t/spec/S03-operators/inplace.t

commit 3777ec04081bda1fc2bd7c06a21d2012c63e7853
Author: kyle <k...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Thu Jul 30 03:37:55 2009 +0000

    [t/spec] Tests for RT #64268
    
    git-svn-id: http://svn.pugscode.org/p...@27812 
c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S03-operators/inplace.t b/t/spec/S03-operators/inplace.t
index 1f40b20..afa2d81 100644
--- a/t/spec/S03-operators/inplace.t
+++ b/t/spec/S03-operators/inplace.t
@@ -4,7 +4,7 @@ use Test;
 
 # L<S03/Assignment operators/A op= B>
 
-plan 19;
+plan 24;
 
 #?rakudo skip '.= with spaces'
 {
@@ -59,3 +59,16 @@ is ~...@b, "a b d e z", "inplace sort";
     .=abs;
     is($_, 42, '.=foo form works on $_');
 }
+
+# RT #64268
+{
+    my @a = 1,3,2;
+    my @b = @a.sort: {1};
+    is @b, (1,3,2), 'works: @a.sort: {1}';
+
+    lives_ok { @a.=sort: {1} }, 'lives: @a.=sort: {1}';
+    is @a, (1,3,2), 'worked: @a.=sort: {1}';
+
+    lives_ok { @a.=sort }, 'lives: @a.=sort';
+    is @a, (1,2,3), 'worked: @a.=sort';
+}