summaryrefslogtreecommitdiffstats
path: root/perl_checker.src/test
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-08-11 02:34:55 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-08-11 02:34:55 +0000
commit44124abb52e4c5dfbaab79ee6b13b355dda0a81f (patch)
tree6a92f62e1070cd3bf58a799e3d8a1fc0ec920297 /perl_checker.src/test
parent85cde02d3779e0b9f6a3c392abad972112372e84 (diff)
downloadperl_checker-44124abb52e4c5dfbaab79ee6b13b355dda0a81f.tar
perl_checker-44124abb52e4c5dfbaab79ee6b13b355dda0a81f.tar.gz
perl_checker-44124abb52e4c5dfbaab79ee6b13b355dda0a81f.tar.bz2
perl_checker-44124abb52e4c5dfbaab79ee6b13b355dda0a81f.tar.xz
perl_checker-44124abb52e4c5dfbaab79ee6b13b355dda0a81f.zip
partially fix { xxx() }->{$foo}
Diffstat (limited to 'perl_checker.src/test')
-rw-r--r--perl_checker.src/test/context.t4
1 files changed, 4 insertions, 0 deletions
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};