[svk-commit] r2414 - branches/svk-logger/lib/SVK/Command

[nobody at bestpractical.com]

Author: clsung
Date: Thu Jun 21 05:56:59 2007
New Revision: 2414

Modified:
   branches/svk-logger/lib/SVK/Command/List.pm

Log:
- calling logger->info() will produce a gap(might be "\n" or sth like that)
  - so detect it and merge the later two lines into one

Modified: branches/svk-logger/lib/SVK/Command/List.pm
==============================================================================
--- branches/svk-logger/lib/SVK/Command/List.pm	(original)
+++ branches/svk-logger/lib/SVK/Command/List.pm	Thu Jun 21 05:56:59 2007
@@ -124,13 +124,12 @@
         $output_path = $target->report;
     }
     else {
-        $logger->info( " " x ($level-1));
+        $logger->info( " " x ($level-1) ) unless $level == 1;
         $output_path = Path::Class::File->new_foreign( 'Unix', $target->path )
             ->basename;
     }
     to_native( $output_path, 'path', $enc );
-    $logger->info( $output_path);
-    $logger->info( ( $kind == $SVN::Node::dir ? '/' : '' ) . "\n" );
+    $logger->info( $output_path. ( $kind == $SVN::Node::dir ? '/' : '' ) . "\n" );
 
 }