diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2004-01-09 12:21:50 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2004-01-09 12:21:50 +0000 |
commit | 4719b738dfa8da4479086a080f3aa4a9d5a779ea (patch) | |
tree | 97905ab74656ff2a776f7d2104d825ab62f80e9a | |
parent | dacd47b22374d602709a46ea70930cb43c01a069 (diff) | |
download | perl-MDK-Common-4719b738dfa8da4479086a080f3aa4a9d5a779ea.tar perl-MDK-Common-4719b738dfa8da4479086a080f3aa4a9d5a779ea.tar.gz perl-MDK-Common-4719b738dfa8da4479086a080f3aa4a9d5a779ea.tar.bz2 perl-MDK-Common-4719b738dfa8da4479086a080f3aa4a9d5a779ea.tar.xz perl-MDK-Common-4719b738dfa8da4479086a080f3aa4a9d5a779ea.zip |
Failure must be always printed
-rw-r--r-- | perl_checker.src/perl_checker.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl_checker.src/perl_checker.ml b/perl_checker.src/perl_checker.ml index 48e9a2d..a71b062 100644 --- a/perl_checker.src/perl_checker.ml +++ b/perl_checker.src/perl_checker.ml @@ -42,7 +42,7 @@ let rec parse_file from_basedir require_name per_files file = let required_packages = collect (fun package -> package.required_packages) per_file.packages in required_packages, per_files with Failure s -> ( - print_endline_flush s ; + print_endline_flush_always s ; exit 1 ) with |