diff options
-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; } # ------------------------------------------------------------------------------ |