diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2015-06-14 00:08:05 +0200 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2015-06-14 00:08:05 +0200 |
| commit | 6fa7e4e9b9a40512c9160b83dc23d4b61e4e1e9c (patch) | |
| tree | fa7312b21c5008ae42afe39870ce0bff088b8287 /src | |
| parent | ae9e9c463faf6187e63374ebcb1443d036bb4b5a (diff) | |
| download | perl_checker-6fa7e4e9b9a40512c9160b83dc23d4b61e4e1e9c.tar perl_checker-6fa7e4e9b9a40512c9160b83dc23d4b61e4e1e9c.tar.gz perl_checker-6fa7e4e9b9a40512c9160b83dc23d4b61e4e1e9c.tar.bz2 perl_checker-6fa7e4e9b9a40512c9160b83dc23d4b61e4e1e9c.tar.xz perl_checker-6fa7e4e9b9a40512c9160b83dc23d4b61e4e1e9c.zip | |
warn when @ISA / "use base" is used more than once
make it a warning instead of dying (needed for Parted bindings)
Diffstat (limited to 'src')
| -rw-r--r-- | src/tree.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/tree.ml b/src/tree.ml index d0faf80..ec312e7 100644 --- a/src/tree.ml +++ b/src/tree.ml @@ -205,7 +205,7 @@ let get_uses t = let get_isa t = let get_isa_ isa exporter pos classes = - if isa <> None || exporter <> None then die_with_pos pos "\"use base\" and \"@ISA\" must be used once only"; + if isa <> None || exporter <> None then warn_with_pos [Warn_strange] pos "\"use base\" and \"@ISA\" must be used once only"; let special, l = List.partition (fun (s, _) -> s = "DynaLoader" || s = "Exporter") classes in let exporter = if List.mem_assoc "Exporter" special then Some pos else None in let isa = if l = [] && special <> [] then None else Some l in |