This is an automatically generated mail to inform you that tests are now
available in t/spec/S03-operators/assign.t
commit 0d46a3f0651a2f1cf8c93390bbc9cbb5c59bd353
Author: kyle <k...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date: Sun Aug 2 20:38:29 2009 +0000
[t/spec] Test for RT #64818
git-svn-id: http://svn.pugscode.org/p...@27857
c213334d-75ef-0310-aa23-eaa082d1ae64
diff --git a/t/spec/S03-operators/assign.t b/t/spec/S03-operators/assign.t
index 3c98bee..c94ca4c 100644
--- a/t/spec/S03-operators/assign.t
+++ b/t/spec/S03-operators/assign.t
@@ -6,7 +6,7 @@ use Test;
# V
# L<S03/Changes to Perl 5 operators/list assignment operator now parses on
the right>
-plan 238;
+plan 239;
# tests various assignment styles
@@ -319,6 +319,10 @@ my @p;
is(@p[1],'plugh', "~= operator parses as item assignment 2");
}
+# RT #64818
+eval_dies_ok q{my $foo = 'foo'; $foo R~= 'foo';},
+ 'R~= operator is a parse error';
+
{
my $x = "abc";
@p = $x x= 3, 4;
