diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-04-10 11:05:38 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-04-10 11:05:38 +0000 |
| commit | a01b7c5fe23248bc378b4825f3de1c903720e52a (patch) | |
| tree | 822963b8022b34927e89b19a1de154fd9ef9448c | |
| parent | 995b7c3888f07b8064ffa22d14adacbe3aad8a57 (diff) | |
| download | perl_checker-a01b7c5fe23248bc378b4825f3de1c903720e52a.tar perl_checker-a01b7c5fe23248bc378b4825f3de1c903720e52a.tar.gz perl_checker-a01b7c5fe23248bc378b4825f3de1c903720e52a.tar.bz2 perl_checker-a01b7c5fe23248bc378b4825f3de1c903720e52a.tar.xz perl_checker-a01b7c5fe23248bc378b4825f3de1c903720e52a.zip | |
allow to selectively import from @EXPORT instead of only accepting @EXPORT_OK
| -rw-r--r-- | perl_checker.src/global_checks.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl_checker.src/global_checks.ml b/perl_checker.src/global_checks.ml index 0ec9a62..43afcc5 100644 --- a/perl_checker.src/global_checks.ml +++ b/perl_checker.src/global_checks.ml @@ -58,7 +58,7 @@ let rec get_imported state current_package (package_name, (imports, pos)) = List.assoc tag exports.export_tags with Not_found -> die_with_pos pos (sprintf "package %s doesn't export tag %s" package_name tag)) | variable -> - if List.mem variable exports.export_ok then + if List.mem variable exports.export_ok || List.mem variable exports.export_auto then [ variable ] else die_with_pos pos (sprintf "package %s doesn't export %s" package_name (variable2s variable)) |