We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent c2cea52 commit 5cc1501Copy full SHA for 5cc1501
t/nqp/101-lexpad-stuff.t
@@ -1,4 +1,4 @@
1
-plan(12);
+plan(14);
2
sub more-inner() {
3
my $outer := nqp::ctxcaller(nqp::ctx());
4
my $outermost := nqp::ctxcaller(nqp::ctxcaller(nqp::ctx()));
@@ -57,6 +57,20 @@ outer();
57
}
58
59
60
+{
61
+ my $*foo := 101;
62
+ my $*bar := 105;
63
+ {
64
+ my $*bar := 102;
65
66
+ my $*bar := 103;
67
+ my $*foo := 104;
68
+ ok(nqp::getlexouter('$*bar') == 102, 'getlexouter from immediately nested block with dynamic variable');
69
+ ok(nqp::getlexouter('$*foo') == 101, 'getlexouter from a not immediate parent with dynamic variable');
70
+ }
71
72
+}
73
+
74
{
75
my $*foo := 302;
76
0 commit comments