Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

RT #104594, lexicals in blocks in double-quoted strings

  • Loading branch information...
commit c0c67ef9c96e350d9b1182fa3dd81e8c80ff27bc 1 parent 5514f34
@moritz moritz authored
Showing with 8 additions and 1 deletion.
  1. +8 −1 S02-literals/misc-interpolation.t
View
9 S02-literals/misc-interpolation.t
@@ -10,7 +10,7 @@ These tests derived from comments in L<http://use.perl.org/~autrijus/journal/233
=end pod
-plan 43;
+plan 44;
my $world = "World";
my $number = 1;
@@ -110,4 +110,11 @@ is("x \c[65,66,67]] x", "x ABC] x", "\\c[] should not eat following ]s");
eval_dies_ok q["|$x."f "()"], '... but whitespaces are not allowed';
}
+# RT # 104594
+# rakudo had some trouble with lexicals from inside interpolated blocks
+{
+ sub t($p) { t $p-1 if $p-1 > 0; return "{$p}" };
+ is t(3), 3, 'variables interpoalted into blocks and recursion interact nicely';
+}
+
# vim: ft=perl6
Please sign in to comment.
Something went wrong with that request. Please try again.