Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

[external-aliasing.t] normal // regexen do not make a lexical scope, …

…so no OUTER needed

git-svn-id: http://svn.pugscode.org/pugs@30017 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
commit b10805651fa91edf35717c6eb2bf19b95e2b8b11 1 parent 1366e44
lwall authored
Showing with 2 additions and 2 deletions.
  1. +2 −2 S05-capture/external-aliasing.t
4 S05-capture/external-aliasing.t
View
@@ -8,7 +8,7 @@ plan 16;
my $x;
our $y;
-ok 'ab cd ef' ~~ m/:s <ident> $OUTER::x=<ident> $OUTER::y=<ident>/,
+ok 'ab cd ef' ~~ m/:s <ident> $x=<ident> $y=<ident>/,
'regex matched';
isa_ok $x, Match, 'stored a match object in outer lexical var';
isa_ok $y, Match, 'stored a match object in outer package var';
@@ -29,7 +29,7 @@ is $/.chunks.map({.value}).join('|'), 'ab| cd ef', 'right values of .chunks';
{
my @a;
- ok 'abc' ~~ m/@OUTER::a=(.)+/, 'regex with outer array matches';
+ ok 'abc' ~~ m/@a=(.)+/, 'regex with outer array matches';
is +@a, 3, 'bound the right number of matches';
ok ?(all(@a) ~~ Match), 'All of them are Match objects';
is @a.join('|'), 'a|b|c', 'right values';
Please sign in to comment.
Something went wrong with that request. Please try again.