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 | 37f73a4ef1e26d22474bceb93ea511be4cd48685 (patch) | |
| tree | ff96dc5eb6d2c396884d3f594e1d2f0b430422c9 | |
| parent | fef479a16e43aea64bf8db79e5ae4d925af131b6 (diff) | |
| download | perl-MDK-Common-37f73a4ef1e26d22474bceb93ea511be4cd48685.tar perl-MDK-Common-37f73a4ef1e26d22474bceb93ea511be4cd48685.tar.gz perl-MDK-Common-37f73a4ef1e26d22474bceb93ea511be4cd48685.tar.bz2 perl-MDK-Common-37f73a4ef1e26d22474bceb93ea511be4cd48685.tar.xz perl-MDK-Common-37f73a4ef1e26d22474bceb93ea511be4cd48685.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)) |