diff options
author | Oliver Tappe | 2008-03-15 19:35:27 +0100 |
---|---|---|
committer | Oliver Tappe | 2008-03-15 19:35:27 +0100 |
commit | d7e11726bbd2f8ce5fb6d756fd9bad9a709d988f (patch) | |
tree | 3be4897b4d6228c6f107e0f3e326a6f9dae2ad65 /lib/OpenSLX/Basics.pm | |
parent | * added support for stage1 attributes that are stored along each plugin insta... (diff) | |
download | core-d7e11726bbd2f8ce5fb6d756fd9bad9a709d988f.tar.gz core-d7e11726bbd2f8ce5fb6d756fd9bad9a709d988f.tar.xz core-d7e11726bbd2f8ce5fb6d756fd9bad9a709d988f.zip |
* intermediate checking for new desktop plugin (successor of displaymanager
with extended scope) - does not work yet, so please do not use!
git-svn-id: http://svn.openslx.org/svn/openslx/openslx/trunk@1634 95ad53e4-c205-0410-b2fa-d234c58c8868
Diffstat (limited to 'lib/OpenSLX/Basics.pm')
-rw-r--r-- | lib/OpenSLX/Basics.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lib/OpenSLX/Basics.pm b/lib/OpenSLX/Basics.pm index 5f9a57b4..e5a57b15 100644 --- a/lib/OpenSLX/Basics.pm +++ b/lib/OpenSLX/Basics.pm @@ -313,7 +313,11 @@ sub callInSubprocess # child... # ...execute the given function and exit: - &$childFunc(); + my $ok = eval { $childFunc->(); 1 }; + if (!$ok) { + print STDERR "*** $@"; + exit 5; + } exit 0; } |