Permalink
Browse files

RT #92408: detect obsolete use of . as concatenation operator

  • Loading branch information...
1 parent 7d22621 commit 0d9fc5ddc5d5f29855b538a09a971649d1510c72 @moritz moritz committed Jan 4, 2013
Showing with 2 additions and 0 deletions.
  1. +2 −0 S32-exceptions/misc.t
View
2 S32-exceptions/misc.t
@@ -94,6 +94,8 @@ throws_like 'undef', X::Obsolete,
{
throws_like ':a<>', X::Obsolete, old => "<>";
}
+# RT #92408
+throws_like 'my ($a, $b); $a . $b', X::Obsolete;
throws_like 'my $a::::b', X::Syntax::Name::Null;
throws_like 'unless 1 { } else { }', X::Syntax::UnlessElse;

0 comments on commit 0d9fc5d

Please sign in to comment.