From 23a796a272e6eb9f1628f768ed1c4110da7b598b Mon Sep 17 00:00:00 2001
From: Oliver Tappe
Date: Thu, 26 Apr 2007 17:59:55 +0000
Subject: * fixed problem in slxsystem that would cause unexpected exits if any
   command returned -1 * removed superfluous and confusing message for every
 unknown message key

git-svn-id: http://svn.openslx.org/svn/openslx/trunk@929 95ad53e4-c205-0410-b2fa-d234c58c8868
---
 lib/OpenSLX/Basics.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'lib')

diff --git a/lib/OpenSLX/Basics.pm b/lib/OpenSLX/Basics.pm
index 7e5717af..9fa33813 100644
--- a/lib/OpenSLX/Basics.pm
+++ b/lib/OpenSLX/Basics.pm
@@ -276,7 +276,6 @@ sub _tr
 
 	my $formatStr = $translations{$trKey};
 	if (!defined $formatStr) {
-		vlog 2, "Translation key '$trKey' not found.";
 		$formatStr = $trOrig;
 	}
 	return sprintf($formatStr, @_);
@@ -311,9 +310,11 @@ sub executeInSubprocess
 # ------------------------------------------------------------------------------
 sub slxsystem
 {
+	vlog 2, _tr("executing: %s", join ' ', @_);
 	my $res = system(@_);
-	if ($res & 127) {
+	if ($res > 0 && $res & 127) {
 		# child got killed, so we stop, too
+		die _tr("child-process reveived signal '%s', parent stops!", $res & 127);
 		exit;
 	}
 	return $res;
-- 
cgit v1.2.3-55-g7522