From eb76b3bdb26377c2f922a017eb651966c7f5fac8 Mon Sep 17 00:00:00 2001
From: Oliver Tappe
Date: Sun, 1 Apr 2007 16:58:19 +0000
Subject: * 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
---
 lib/OpenSLX/Basics.pm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'lib/OpenSLX/Basics.pm')

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 $!;
 	}
 }
-- 
cgit v1.2.3-55-g7522