Permalink
Browse files

ensure $@!foobar doesn't get parsed as $@ by accident.

  • Loading branch information...
1 parent 8e7c9fc commit 0a9e8fbf11984b159c959a2b3539fad2e50e6324 @timo timo committed Dec 24, 2013
Showing with 3 additions and 0 deletions.
  1. +3 −0 S32-exceptions/misc.t
View
@@ -162,6 +162,9 @@ for '$<', '$#', '$>' {
#?rakudo skip 'still handled by <special_var>'
throws_like $_, X::Syntax::Perl5Var;
}
+
+eval_lives_ok 'class frob { has @!bar; method test { return $@!bar } }', 'uses of $@!bar not wrongfully accused of using old $@ variable';
+
throws_like '1∞', X::Syntax::Confused;
throws_like 'for 1, 2', X::Syntax::Missing, what => 'block';
throws_like 'my @a()', X::Syntax::Reserved, reserved => /shape/ & /array/;

0 comments on commit 0a9e8fb

Please sign in to comment.