summaryrefslogtreecommitdiffstats
path: root/perl_checker.src/global_checks.ml
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-04-10 11:05:38 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-04-10 11:05:38 +0000
commita01b7c5fe23248bc378b4825f3de1c903720e52a (patch)
tree822963b8022b34927e89b19a1de154fd9ef9448c /perl_checker.src/global_checks.ml
parent995b7c3888f07b8064ffa22d14adacbe3aad8a57 (diff)
downloadperl_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
Diffstat (limited to 'perl_checker.src/global_checks.ml')
-rw-r--r--perl_checker.src/global_checks.ml2
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))