From 37f73a4ef1e26d22474bceb93ea511be4cd48685 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 10 Apr 2003 11:05:38 +0000 Subject: allow to selectively import from @EXPORT instead of only accepting @EXPORT_OK --- perl_checker.src/global_checks.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)) -- cgit v1.2.1