From 0ef3a04dc1034a1ca88b11b6733d4bdd8f9a23ee Mon Sep 17 00:00:00 2001
From: Stefan O'Rear <stefanor@cox.net>
Date: Sun, 26 Jun 2011 16:41:57 -0700
Subject: [PATCH] Fudge binding-arrays for Niecza and fix obsolete slurpy
 syntax

---
 S03-operators/binding-arrays.t | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/S03-operators/binding-arrays.t b/S03-operators/binding-arrays.t
index 4a155596ec..ec9b9ec734 100644
--- a/S03-operators/binding-arrays.t
+++ b/S03-operators/binding-arrays.t
@@ -27,6 +27,7 @@ plan 47;
   is $var,      "f", "basic binding of an array element (3)";
 }
 
+#?niecza skip 'delete'
 {
   my @array  = <a b c>;
   my $var    = "d";
@@ -127,7 +128,7 @@ plan 47;
 
 #?rakudo skip 'lexically scoped subs'
 {
-  my sub foo (@args) { push @args, "new_value" }
+  my sub foo (*@args) { push @args, "new_value" }
 
   my @array  = <a b c>;
   my $var    = "d";
@@ -153,6 +154,7 @@ plan 47;
 }
 
 # Binding with .splice
+#?niecza skip 'splice'
 {
   my @array  = <a b c>;
   my $var    = "d";
@@ -224,6 +226,7 @@ plan 47;
 }
 
 # RT #61566
+#?niecza skip 'Exception'
 {
     eval 'my @rt61566 := 1';
     #?rakudo todo 'Positional type check on array binding'