From 27bee13cfedf2a0f40050687a13df1bccff40cbe Mon Sep 17 00:00:00 2001
From: Zoffix Znet <cpan@zoffix.com>
Date: Wed, 27 Jul 2016 14:56:19 -0400
Subject: [PATCH] Binding into List item throws

RT#128755
---
 S03-binding/nonsense.t | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/S03-binding/nonsense.t b/S03-binding/nonsense.t
index b2af7936d8..7fce4d4136 100644
--- a/S03-binding/nonsense.t
+++ b/S03-binding/nonsense.t
@@ -1,6 +1,6 @@
 use Test;
 
-plan 4;
+plan 5;
 
 {
     my $a = List;
@@ -25,3 +25,9 @@ plan 4;
     #?rakudo skip 'hangs'
     throws-like { $a[0] := 1; }, X::Bind, "Can't bind into a defined Str";
 }
+
+# RT #128755
+{
+    my $list = (1,2,3);
+    throws-like { $list[1] := 4 }, X::Bind, "Can't bind into a List item";
+}