diff options
| author | Fabrice Le Fessant <Fabrice.Le_fessant@inria.fr> | 2012-05-15 08:37:48 +0000 |
|---|---|---|
| committer | Fabrice Le Fessant <Fabrice.Le_fessant@inria.fr> | 2012-05-15 08:37:48 +0000 |
| commit | fef288bd38c7595432ffa3f7d119397c9b004d75 (patch) | |
| tree | 57962a696085a04aa8c3e508e3e83e8d4c69f24d /ocamlbuild/hygiene.ml | |
| parent | 621dd2dd5fc19698ed85f3ae2812fde9fd53eb3b (diff) | |
| download | ocaml-fef288bd38c7595432ffa3f7d119397c9b004d75.tar.gz | |
Fix PR#5305 : prevent ocamlbuild from complaining about links to _build/
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@12452 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'ocamlbuild/hygiene.ml')
| -rw-r--r-- | ocamlbuild/hygiene.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ocamlbuild/hygiene.ml b/ocamlbuild/hygiene.ml index f070afc8c3..33c01ed13c 100644 --- a/ocamlbuild/hygiene.ml +++ b/ocamlbuild/hygiene.ml @@ -72,7 +72,8 @@ let check ?sanitize laws entry = list_collect begin function | File(path, name, _, true) -> - if Filename.check_suffix name suffix then + if Filename.check_suffix name suffix + && not ( Pathname.link_to_dir (filename_concat path name) !Options.build_dir ) then begin remove path name; Some(sf "File %s in %s has suffix %s" name path suffix) |