From @moritz

00​:01 < moritz_> rakudo​: my $c = { say $_; say @​_.perl }; $c(2, 3, 4, 5)
00​:01 < p6eval> rakudo f8b6ae​: OUTPUT«2␤[3, 4, 5]␤»

It's probably right that $_ gets 2, but @​_[0] should also be 2.

Cheers,
Moritz

From @kyleha

This is an automatically generated mail to inform you that tests are now available in t/spec/S06-signature/sub-ref.t

commit 5083fd82fecfbb1a527f1891758cc3c507c1816b
Author​: kyle <kyle@​c213334d-75ef-0310-aa23-eaa082d1ae64>
Date​: Tue Jul 28 03​:14​:02 2009 +0000

  [t/spec] Test for RT #​63974
 
  git-svn-id​: http://svn.pugscode.org/pugs@&#8203;27768 c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S06-signature/sub-ref.t b/t/spec/S06-signature/sub-ref.t
index 570048d..60b81c0 100644
--- a/t/spec/S06-signature/sub-ref.t
+++ b/t/spec/S06-signature/sub-ref.t
@@ -4,7 +4,7 @@ use Test;
 
 # L<S02/"Built-In Data Types"> 
 
-plan 33;
+plan 35;
 
 =begin description
 
@@ -50,6 +50,19 @@ See L<S02/"Built-in Data Types"> for more information about Code, Routine, Sub,
     dies_ok { $foo.() }, "invocation of an parameterized block expecting a param without a param dies";
 }
 
+# RT #63974
+{
+    my $topic = 'topic unchanged';
+    my @topic_array = <topic array unchanged>;
+    my $c = { $topic = $_; @topic_array = @_ };
+
+    $c( 2, 3, 4, 5 );
+
+    is $topic, 2, '$_ got right value for code ref';
+    #?rakudo todo 'RT #63974'
+    is @topic_array, ( 2, 3, 4, 5 ), '@_ got right value in code ref';
+}
+
 {
     my $foo = sub { 100 + (@_[0] // -1) };
     isa_ok($foo, Code);

The RT System itself - Status changed from 'new' to 'open'

From @moritz

Tests pass, jnthn++.

@moritz - Status changed from 'open' to 'resolved'

@moritz - Status changed from 'resolved' to 'open'

From @moritz

After the 'ng' merge the tests are failing again (though they have been
changed in the mean time). Reopening ticket.

From @bbkr

They pass again on Kiev build.

perl t/harness --fudge --keep-exit-code --icu=0 --jobs
~/pugs/t/spec/S06-signature/sub-ref.t
/home/ppabian/pugs/t/spec/S06-signature/sub-ref....ok
  4/35 skipped​: various reasons
All tests successful, 4 subtests skipped.
Files=1, Tests=35, 3 wallclock secs ( 2.56 cusr + 0.10 csys = 2.66 CPU)

@bbkr - Status changed from 'open' to 'resolved'