diff options
author | Oliver Tappe | 2007-03-03 21:51:39 +0100 |
---|---|---|
committer | Oliver Tappe | 2007-03-03 21:51:39 +0100 |
commit | 7bc2bfb2123de7bf49b88b44c5a40cc51e6edeba (patch) | |
tree | 10d579ff42d6fecce4f0a6a17b71b2bf8ead7803 /lib | |
parent | Hardware detection, list handling not optimal; we need a good source for (diff) | |
download | core-7bc2bfb2123de7bf49b88b44c5a40cc51e6edeba.tar.gz core-7bc2bfb2123de7bf49b88b44c5a40cc51e6edeba.tar.xz core-7bc2bfb2123de7bf49b88b44c5a40cc51e6edeba.zip |
* vlog now only adds linefeed if needed
git-svn-id: http://svn.openslx.org/svn/openslx/trunk@743 95ad53e4-c205-0410-b2fa-d234c58c8868
Diffstat (limited to 'lib')
-rw-r--r-- | lib/OpenSLX/Basics.pm | 6 |
1 files changed, 5 insertions, 1 deletions
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; } # ------------------------------------------------------------------------------ |