From 44124abb52e4c5dfbaab79ee6b13b355dda0a81f Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 11 Aug 2004 02:34:55 +0000 Subject: partially fix { xxx() }->{$foo} --- perl_checker.src/test/context.t | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'perl_checker.src/test') diff --git a/perl_checker.src/test/context.t b/perl_checker.src/test/context.t index 637360e..081abcc 100644 --- a/perl_checker.src/test/context.t +++ b/perl_checker.src/test/context.t @@ -35,3 +35,7 @@ qw(a b) > 2 context tuple(string, string) is not co you should use a number operator, not the string operator "eq" (or replace the number with a string) @l == () + +$xxx = { xxx() }->{xxx}; + +$xxx = { xxx() }->{$xxx}; -- cgit v1.2.1