From 1c03763f01310c1d1fe994ce77dc0c34c0f64ac1 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 9 Jan 2004 12:21:50 +0000 Subject: Failure must be always printed --- perl_checker.src/perl_checker.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl_checker.src') 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 -- cgit v1.2.1