diff options
| author | Peter Palfrader <peter@palfrader.org> | 2003-01-14 07:38:27 +0000 |
|---|---|---|
| committer | Peter Palfrader <peter@palfrader.org> | 2003-01-14 07:38:27 +0000 |
| commit | 5ff491eaca35a2f3696cb5fa5d1be8e904a7eb01 (patch) | |
| tree | 7e7035326b96aceed4e5758ae8173c282ccf588a | |
| parent | a6586fec3121176d79f999fc22c831f25f91e4e5 (diff) | |
Fix indention bug with multi line log messages
| -rw-r--r-- | Echolot/Log.pm | 5 |
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; }; |