summaryrefslogtreecommitdiff
path: root/Echolot/Log.pm
diff options
context:
space:
mode:
authorPeter Palfrader <peter@palfrader.org>2003-01-14 07:38:27 +0000
committerPeter Palfrader <peter@palfrader.org>2003-01-14 07:38:27 +0000
commit5ff491eaca35a2f3696cb5fa5d1be8e904a7eb01 (patch)
tree7e7035326b96aceed4e5758ae8173c282ccf588a /Echolot/Log.pm
parenta6586fec3121176d79f999fc22c831f25f91e4e5 (diff)
Fix indention bug with multi line log messages
Diffstat (limited to 'Echolot/Log.pm')
-rw-r--r--Echolot/Log.pm5
1 files changed, 3 insertions, 2 deletions
diff --git a/Echolot/Log.pm b/Echolot/Log.pm
index 6fd17f5..5078835 100644
--- a/Echolot/Log.pm
+++ b/Echolot/Log.pm
@@ -1,7 +1,7 @@
package Echolot::Log;
# (c) 2002 Peter Palfrader <peter@palfrader.org>
-# $Id: Log.pm,v 1.5 2003/01/14 07:36:56 weasel Exp $
+# $Id: Log.pm,v 1.6 2003/01/14 07:38:27 weasel Exp $
#
=pod
@@ -44,8 +44,9 @@ sub header_log($$) {
$hour, $min, $sec);
my $logstring = $time.' '.
'['.uc($level).']'. ' '.
- $msg."\n";
+ $msg;
$logstring =~ s/\n/\n /mg;
+ $logstring .= "\n";
return $logstring;
};