diff options
| author | Oliver Tappe | 2007-03-23 15:43:47 +0100 |
|---|---|---|
| committer | Oliver Tappe | 2007-03-23 15:43:47 +0100 |
| commit | d750f9e1d6194b2a4f1f4ca58b3e0959938333d6 (patch) | |
| tree | 03fe57c3b77f9fc207f7cd2d6795ae3c1642c27e /lib/OpenSLX/Basics.pm | |
| parent | * fixed incorrect uses of the _tr() function (diff) | |
| download | core-d750f9e1d6194b2a4f1f4ca58b3e0959938333d6.tar.gz core-d750f9e1d6194b2a4f1f4ca58b3e0959938333d6.tar.xz core-d750f9e1d6194b2a4f1f4ca58b3e0959938333d6.zip | |
* inserted correct copyright header
git-svn-id: http://svn.openslx.org/svn/openslx/trunk@813 95ad53e4-c205-0410-b2fa-d234c58c8868
Diffstat (limited to 'lib/OpenSLX/Basics.pm')
| -rw-r--r-- | lib/OpenSLX/Basics.pm | 19 |
1 files changed, 13 insertions, 6 deletions
diff --git a/lib/OpenSLX/Basics.pm b/lib/OpenSLX/Basics.pm index c519a50d..ebd253f7 100644 --- a/lib/OpenSLX/Basics.pm +++ b/lib/OpenSLX/Basics.pm @@ -1,9 +1,16 @@ -# Basics.pm - provides basic functionality of the OpenSLX config-db. +# Copyright (c) 2006, 2007 - OpenSLX GmbH # -# (c) 2006 - OpenSLX.com +# This program is free software distributed under the GPL version 2. +# See http://openslx.org/COPYING # -# Oliver Tappe <ot@openslx.com> +# If you have any feedback please consult http://openslx.org/feedback and +# send your suggestions, praise, or complaints to feedback@openslx.org # +# General information about OpenSLX can be found at http://openslx.org/ +# ----------------------------------------------------------------------------- +# Basics.pm +# - provides basic functionality of the OpenSLX config-db. +# ----------------------------------------------------------------------------- package OpenSLX::Basics; use strict; @@ -15,7 +22,7 @@ $VERSION = 1.01; @EXPORT = qw( &openslxInit %openslxConfig %cmdlineConfig - &_tr &trInit + &_tr &trInit &die &executeInSubprocess &slxsystem &vlog ); @@ -290,9 +297,9 @@ sub executeInSubprocess # parent... # ...pass on interrupt- and terminate-signals to child... - local $SIG{INT} + local $SIG{INT} = sub { kill 'INT', $pid; waitpid($pid, 0); exit $? }; - local $SIG{TERM} + local $SIG{TERM} = sub { kill 'TERM', $pid; waitpid($pid, 0); exit $? }; # ...and wait for child to do its work: waitpid($pid, 0); |