[svk-commit] r2697 - trunk/lib/SVK

[nobody at bestpractical.com]

Author: ruz
Date: Thu Feb 14 07:09:56 2008
New Revision: 2697

Modified:
   trunk/lib/SVK/Logger.pm

Log:
* don't modify $_[1] as it can be read-only value

Modified: trunk/lib/SVK/Logger.pm
==============================================================================
--- trunk/lib/SVK/Logger.pm	(original)
+++ trunk/lib/SVK/Logger.pm	Thu Feb 14 07:09:56 2008
@@ -123,8 +123,8 @@
 
 my $ignore  = sub { return };
 my $warn = sub {
-    $_[1] .= "\n" unless substr( $_[1], -1, 1 ) eq "\n";
     print $_[1];
+    print "\n" unless substr( $_[1], -1, 1 ) eq "\n";
 };
 my $die     = sub { shift; die $_[0]."\n"; };
 my $carp    = sub { shift; goto \&Carp::carp };