diff options
| author | Peter Palfrader <peter@palfrader.org> | 2003-01-14 07:36:56 +0000 |
|---|---|---|
| committer | Peter Palfrader <peter@palfrader.org> | 2003-01-14 07:36:56 +0000 |
| commit | a6586fec3121176d79f999fc22c831f25f91e4e5 (patch) | |
| tree | f55dcd7d85d04e6487e1a1fc1cab3930fcf4afb9 | |
| parent | e9db494c38db2c5d20c4a6c6b28eea4265187054 (diff) | |
Fix indention bug with multi line log messages
| -rw-r--r-- | Echolot/Log.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Echolot/Log.pm b/Echolot/Log.pm index 7a04ec3..6fd17f5 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.4 2003/01/14 07:32:58 weasel Exp $ +# $Id: Log.pm,v 1.5 2003/01/14 07:36:56 weasel Exp $ # =pod @@ -45,7 +45,7 @@ sub header_log($$) { my $logstring = $time.' '. '['.uc($level).']'. ' '. $msg."\n"; - $logstring =~ s/(?<=.)^/ /mg; + $logstring =~ s/\n/\n /mg; return $logstring; }; |