diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2003-04-30 09:30:59 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2003-04-30 09:30:59 +0000 |
commit | d6ed071ca23941755671614ad566d3524d044f8b (patch) | |
tree | 8db07600d47e964fe82ef0ef4613017493df9550 /perl_checker.src/types.mli | |
parent | a40a84536bba545bb010a12aac632317545b40b9 (diff) | |
download | perl-MDK-Common-d6ed071ca23941755671614ad566d3524d044f8b.tar perl-MDK-Common-d6ed071ca23941755671614ad566d3524d044f8b.tar.gz perl-MDK-Common-d6ed071ca23941755671614ad566d3524d044f8b.tar.bz2 perl-MDK-Common-d6ed071ca23941755671614ad566d3524d044f8b.tar.xz perl-MDK-Common-d6ed071ca23941755671614ad566d3524d044f8b.zip |
allow "*foo = sub {}" with no prototype
Diffstat (limited to 'perl_checker.src/types.mli')
-rw-r--r-- | perl_checker.src/types.mli | 4 |
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 |