From 84d89c0dd655f85ea4be7bc738ba19f35870a840 Mon Sep 17 00:00:00 2001
From: Martin Nilsson <mani@lysator.liu.se>
Date: Tue, 15 Apr 2003 20:47:02 +0200
Subject: [PATCH] Complain about non-integer responses from main.
Rev: lib/master.pike.in:1.272
---
lib/master.pike.in | 7 +++++--
1 file changed, 5 insertions(+), 2 deletions(-)
diff --git a/lib/master.pike.in b/lib/master.pike.in
index 315fd7a548..ac38a671a9 100644
--- a/lib/master.pike.in
+++ b/lib/master.pike.in
@@ -6,7 +6,7 @@
// Pike is distributed under GPL, LGPL and MPL. See the file COPYING
// for more information.
//
-// $Id: master.pike.in,v 1.271 2003/04/10 16:05:52 mast Exp $
+// $Id: master.pike.in,v 1.272 2003/04/15 18:47:02 nilsson Exp $
#pike __REAL_VERSION__
@@ -2132,7 +2132,10 @@ void _main(array(string) orig_argv, array(string) env)
handle_error (err);
ret = 10;
}
- if(!intp(ret)) exit(0);
+ if(!intp(ret)) {
+ werror("Error: Non-integer value %O returned from main.\n", ret);
+ exit(10);
+ }
if(ret >=0) exit([int]ret);
_async=1;
--
GitLab