Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

alphabetic characters can follow digits in $0 variable in interpolation

  • Loading branch information...
commit 606e73751fc3eff7d456c115ce288c80479ad811 1 parent 868d0c6
Pawel Pabian authored

Showing 1 changed file with 9 additions and 1 deletion. Show diff stats Hide diff stats

  1. 10  S05-match/capturing-contexts.t
10  S05-match/capturing-contexts.t
@@ -4,7 +4,7 @@ use MONKEY_TYPING;
4 4
 use Test;
5 5
 BEGIN { @*INC.push('t/spec/packages/') };
6 6
 use Test::Util;
7  
-plan 36;
  7
+plan 38;
8 8
 
9 9
 # old: L<S05/Return values from matches/"A match always returns a Match object" >
10 10
 # L<S05/Match objects/"A match always returns a " >
@@ -143,6 +143,14 @@ is_run( q{'aa' ~~ /(.)$1/},
143 143
     is $x, 2, '$/.list does not flattens subcaptures';
144 144
 }
145 145
 
  146
+# RT 74180
  147
+{
  148
+    my $s;
  149
+    try { $s = eval '"foo" ~~ /(foo)/; "$0a"' };
  150
+    ok not $!, 'alphabetic characters can follow digits in $0 variable in interpolation';
  151
+    is $s, 'fooa', 'alphabetic characters follows $0 interpolated value';
  152
+}
  153
+
146 154
 done;
147 155
 
148 156
 # vim: ft=perl6

0 notes on commit 606e737

Please sign in to comment.
Something went wrong with that request. Please try again.