diff options
| author | Oliver Tappe | 2007-04-01 18:58:19 +0200 |
|---|---|---|
| committer | Oliver Tappe | 2007-04-01 18:58:19 +0200 |
| commit | eb76b3bdb26377c2f922a017eb651966c7f5fac8 (patch) | |
| tree | fcd6d011563630bd3a5af52d0d97bc9e0d0daf40 /lib/OpenSLX/Basics.pm | |
| parent | * system-names will no longer be automatically set, you have to specify them ... (diff) | |
| download | core-eb76b3bdb26377c2f922a017eb651966c7f5fac8.tar.gz core-eb76b3bdb26377c2f922a017eb651966c7f5fac8.tar.xz core-eb76b3bdb26377c2f922a017eb651966c7f5fac8.zip | |
* fixed die() to provide exit-value 5 if no error is indicated by $!, such that it is
always possible to determine the success/failure of a script from external callers
git-svn-id: http://svn.openslx.org/svn/openslx/trunk@846 95ad53e4-c205-0410-b2fa-d234c58c8868
Diffstat (limited to 'lib/OpenSLX/Basics.pm')
| -rw-r--r-- | lib/OpenSLX/Basics.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/OpenSLX/Basics.pm b/lib/OpenSLX/Basics.pm index ebd253f7..abcb7aa2 100644 --- a/lib/OpenSLX/Basics.pm +++ b/lib/OpenSLX/Basics.pm @@ -330,6 +330,7 @@ sub die $msg =~ s[^][*** ]igms; chomp $msg; print STDERR "$msg\n"; + exit 5 unless ($!); exit $!; } } |