diff options
author | Oliver Tappe | 2007-04-26 19:59:55 +0200 |
---|---|---|
committer | Oliver Tappe | 2007-04-26 19:59:55 +0200 |
commit | 23a796a272e6eb9f1628f768ed1c4110da7b598b (patch) | |
tree | bd4caff1e84ca87268deec1e5f1ad05b5d1799c5 /lib | |
parent | * added support to copyFile for passing in the name of the target file (to (diff) | |
download | core-23a796a272e6eb9f1628f768ed1c4110da7b598b.tar.gz core-23a796a272e6eb9f1628f768ed1c4110da7b598b.tar.xz core-23a796a272e6eb9f1628f768ed1c4110da7b598b.zip |
* 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
Diffstat (limited to 'lib')
-rw-r--r-- | lib/OpenSLX/Basics.pm | 5 |
1 files changed, 3 insertions, 2 deletions
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; |