From 7bc2bfb2123de7bf49b88b44c5a40cc51e6edeba Mon Sep 17 00:00:00 2001
From: Oliver Tappe
Date: Sat, 3 Mar 2007 20:51:39 +0000
Subject: * vlog now only adds linefeed if needed

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

(limited to 'lib/OpenSLX')

diff --git a/lib/OpenSLX/Basics.pm b/lib/OpenSLX/Basics.pm
index 0da3d76a..9c5b0b6c 100644
--- a/lib/OpenSLX/Basics.pm
+++ b/lib/OpenSLX/Basics.pm
@@ -119,7 +119,11 @@ sub vlog
 {
 	my $minLevel = shift;
 	return if $minLevel > $openslxConfig{'verbose-level'};
-	print $openslxLog '-'x$minLevel, @_, "\n";
+	my $str = join("", '-'x$minLevel, @_);
+	if (substr($str,-1,1) ne "\n") {
+		$str .= "\n";
+	}
+	print $openslxLog $str;
 }
 
 # ------------------------------------------------------------------------------
-- 
cgit v1.2.3-55-g7522