Browse files

[t/spec] tests for RT #71362, $0, $1 etc. work even for $/ := $something

git-svn-id: http://svn.pugscode.org/pugs@32059 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent 3f55d2d commit 046b183eebb01f7679514956d45babd56d04cd02 moritz committed Aug 19, 2010
Showing with 7 additions and 0 deletions.
  1. +7 −0 S05-match/capturing-contexts.t
View
7 S05-match/capturing-contexts.t
@@ -106,6 +106,13 @@ is_run( q{'aa' ~~ /(.)$1/},
is ($/.orig).rindex('a', 2), 1, 'rindex() works on $/.orig';
}
+# RT #71362
+{
+ $/ := 'foobar';
+ is $0, 'foobar', '$0 works like $/[0], even for non-Match objects';
+ nok $1.defined, '$1 is not defined';
+}
+
# RT #72956
{
$/ = Any;

0 comments on commit 046b183

Please sign in to comment.