summaryrefslogtreecommitdiffstats
path: root/perl_checker.src/types.mli
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-04-30 09:30:59 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-04-30 09:30:59 +0000
commit3d726d18053a2ea9cf435d661fc6fd0a36daab99 (patch)
tree64406beefbf9d941a955d72f33dcb1f5d8ef15cf /perl_checker.src/types.mli
parent16d1e7e21e4169abd573a3b6e53afb4a203a81f2 (diff)
downloadperl_checker-3d726d18053a2ea9cf435d661fc6fd0a36daab99.tar
perl_checker-3d726d18053a2ea9cf435d661fc6fd0a36daab99.tar.gz
perl_checker-3d726d18053a2ea9cf435d661fc6fd0a36daab99.tar.bz2
perl_checker-3d726d18053a2ea9cf435d661fc6fd0a36daab99.tar.xz
perl_checker-3d726d18053a2ea9cf435d661fc6fd0a36daab99.zip
allow "*foo = sub {}" with no prototype
Diffstat (limited to 'perl_checker.src/types.mli')
-rw-r--r--perl_checker.src/types.mli4
1 files changed, 3 insertions, 1 deletions
diff --git a/perl_checker.src/types.mli b/perl_checker.src/types.mli
index d9bda2c..98b49e5 100644
--- a/perl_checker.src/types.mli
+++ b/perl_checker.src/types.mli
@@ -27,6 +27,8 @@ type maybe_context =
| M_unknown
| M_mixed of maybe_context list
+type sub_declaration_kind = Real_sub_declaration | Glob_assign
+
type fromparser =
| Undef
| Ident of string option * string * pos
@@ -50,7 +52,7 @@ type fromparser =
| Anonymous_sub of string option * fromparser * pos (* prototype, expr, pos *)
| My_our of string * (context * string) list * pos
| Use of fromparser * fromparser list
- | Sub_declaration of fromparser * string option * fromparser (* name, prototype, body *)
+ | Sub_declaration of fromparser * string option * fromparser * sub_declaration_kind (* name, prototype, body, kind *)
| Package of fromparser
| Label of string
| Perl_checker_comment of string * pos