*** empty log message ***

1 files changed, 7 insertions, 2 deletions

diff --git a/perl_checker.src/tree.mli b/perl_checker.src/tree.mli
index 769b513..71eeb04 100644
--- a/perl_checker.src/tree.mli
+++ b/perl_checker.src/tree.mli
@@ -1,10 +1,12 @@
 open Types
 
+type special_export = Re_export_all | Export_all
+
 type exports = {
   export_ok : (context * string) list;
   export_auto : (context * string) list;
   export_tags : (string * (context * string) list) list;
-  re_export_all : bool;
+  special_export : special_export option;
 } 
 
 
@@ -14,12 +16,14 @@ type per_package = {
     file_name : string ;
     package_name : string ; has_package_name : bool ;
     vars_declared : (context * string, pos) Hashtbl.t;
+    imported : ((context * string) * string) list option ref;
     exports : exports ;
     uses : uses ;
     body : fromparser list;
   }
 type state = {
     per_package : (string * per_package) list;
+    files_parsed : string list;
     global_vars_declared : (context * string * string, pos) Hashtbl.t;
     global_vars_used : ((context * string * string) * pos) list ref;
   } 
@@ -27,9 +31,10 @@ type state = {
 val ignored_packages : string list ref
 
 val default_state : state
-val get_global_info_from_package : fromparser list -> (string * pos) list * per_package
+val get_global_info_from_package : fromparser list -> per_package list * (string * pos) list
 val get_vars_declaration : state -> per_package -> unit
 val check_tree : state -> per_package -> unit
 
 val die_with_pos : string * int * int -> string -> 'a
 val warn_with_pos : string * int * int -> string -> unit
+val add_package_to_state : state -> per_package -> state