Skip to content
Browse files

require an is dynamic if you're gonna use CALLER.

  • Loading branch information...
1 parent 50a3a42 commit 9ee04a8b08391e3acdde26e926e5fc80207372cb @timo timo committed Aug 11, 2013
Showing with 1 addition and 1 deletion.
  1. +1 −1 S02-names/pseudo.t
View
2 S02-names/pseudo.t
@@ -328,7 +328,7 @@ plan 142;
is f2({ CALLER::<$*foo> }), 92, 'CALLER::<$*foo> works';
is f2({ ::($caller)::('$*foo') }), 92, '::("CALLER")::<$*foo> works';
- my $y = 93; #OK
+ my $y is dynamic = 93; #OK
if 1 {
is $CALLER::y, 93, 'CALLER:: works in inline blocks';
is $::($caller)::y, 93, '::("CALLER") works in inline blocks';

0 comments on commit 9ee04a8

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