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 | 3d726d18053a2ea9cf435d661fc6fd0a36daab99 (patch) | |
| tree | 64406beefbf9d941a955d72f33dcb1f5d8ef15cf /perl_checker.src/tree.ml | |
| parent | 16d1e7e21e4169abd573a3b6e53afb4a203a81f2 (diff) | |
| download | perl_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/tree.ml')
| -rw-r--r-- | perl_checker.src/tree.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/perl_checker.src/tree.ml b/perl_checker.src/tree.ml index 8154eb6..9b62bb9 100644 --- a/perl_checker.src/tree.ml +++ b/perl_checker.src/tree.ml @@ -267,9 +267,9 @@ let get_proto perl_proto body = let get_vars_declaration global_vars_declared package = List.iter (function - | Sub_declaration(Ident(None, name, pos), perl_proto, body) -> + | Sub_declaration(Ident(None, name, pos), perl_proto, body, _) -> Hashtbl.replace package.vars_declared (I_func, name) (pos, ref false, get_proto perl_proto body) - | Sub_declaration(Ident(Some fq, name, pos), perl_proto, body) -> + | Sub_declaration(Ident(Some fq, name, pos), perl_proto, body, _) -> Hashtbl.replace global_vars_declared (I_func, fq, name) (pos, get_proto perl_proto body) | List [ Call_op("=", [My_our("our", ours, pos); _], _) ] @@ -310,7 +310,7 @@ let rec fold_tree f env e = | String(l, _) -> List.fold_left (fun env (_, e) -> fold_tree f env e) env l - | Sub_declaration(e1, _, e2) + | Sub_declaration(e1, _, e2, _) | Deref_with(_, _, e1, e2) -> let env = fold_tree f env e1 in |