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
commit52958e76f2c154b20367a509b0d9919231522563 (patch)
tree570db8092584b6ec0a991ab10ef1f7fb892654b3 /perl_checker.src/test
parent65df1801fe6cc17fb0a8c14d3870261df40bade2 (diff)
downloadperl-MDK-Common-52958e76f2c154b20367a509b0d9919231522563.tar
perl-MDK-Common-52958e76f2c154b20367a509b0d9919231522563.tar.gz
perl-MDK-Common-52958e76f2c154b20367a509b0d9919231522563.tar.bz2
perl-MDK-Common-52958e76f2c154b20367a509b0d9919231522563.tar.xz
perl-MDK-Common-52958e76f2c154b20367a509b0d9919231522563.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};