From 3ddba26c76ce8a328607ded5eede4af046489cb4 Mon Sep 17 00:00:00 2001
From: Oliver Tappe
Date: Sun, 15 Apr 2007 11:34:55 +0000
Subject: * added our implementation of warn() to increase the visibility of
 warnings.

git-svn-id: http://svn.openslx.org/svn/openslx/trunk@893 95ad53e4-c205-0410-b2fa-d234c58c8868
---
 lib/OpenSLX/Basics.pm | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

diff --git a/lib/OpenSLX/Basics.pm b/lib/OpenSLX/Basics.pm
index abcb7aa2..95a67dd0 100644
--- a/lib/OpenSLX/Basics.pm
+++ b/lib/OpenSLX/Basics.pm
@@ -23,7 +23,7 @@ $VERSION = 1.01;
 @EXPORT = qw(
 	&openslxInit %openslxConfig %cmdlineConfig
 	&_tr &trInit
-	&die &executeInSubprocess &slxsystem
+	&warn &die &executeInSubprocess &slxsystem
 	&vlog
 );
 
@@ -319,6 +319,20 @@ sub slxsystem
 	return $res;
 }
 
+# ------------------------------------------------------------------------------
+sub warn
+{
+	my $msg = shift;
+	if ($openslxConfig{'croak'}) {
+		print STDERR "*** ";
+		carp $msg;
+	} else {
+		$msg =~ s[^][*** ]igms;
+		chomp $msg;
+		print STDERR "$msg\n";
+	}
+}
+
 # ------------------------------------------------------------------------------
 sub die
 {
-- 
cgit v1.2.3-55-g7522