[svk-commit] r2539 - branches/svk-logger/lib/SVK/Log/Filter

nobody at bestpractical.com nobody at bestpractical.com
Wed Sep 19 18:50:02 EDT 2007


Author: clsung
Date: Wed Sep 19 18:50:01 2007
New Revision: 2539

Modified:
   branches/svk-logger/lib/SVK/Log/Filter/Std.pm

Log:
- another missing print => $logger->info();

Modified: branches/svk-logger/lib/SVK/Log/Filter/Std.pm
==============================================================================
--- branches/svk-logger/lib/SVK/Log/Filter/Std.pm	(original)
+++ branches/svk-logger/lib/SVK/Log/Filter/Std.pm	Wed Sep 19 18:50:01 2007
@@ -54,6 +54,7 @@
 
 use SVK::I18N;
 use SVK::Util qw( get_encoding reformat_svn_date );
+use SVK::Logger;
 
 our $sep;
 
@@ -62,7 +63,7 @@
     my $stash = $args->{stash};
 
     $sep = $stash->{verbatim} || $stash->{no_sep} ? '' : ('-' x 70)."\n";
-    print $sep;
+    $logger->info ($sep);
 
     # avoid get_encoding() calls for each revision
     $self->{encoding} = get_encoding();
@@ -89,20 +90,20 @@
 
     $author = loc('(no author)') if !defined($author) or !length($author);
     if ( !$verbatim ) {
-        print $indent;
-        print fancy_rev( $stash, $rev, $args->{get_remoterev} );
-        print ":  $author | $date\n";
+        $logger->info ( $indent . 
+	    fancy_rev( $stash, $rev, $args->{get_remoterev} ) .
+	    ":  $author | $date");
     }
 
     # display the paths that were modified by this revision
     if ( $stash->{verbose} ) {
-        print build_changed_details( $stash, $args->{paths}, $self->{encoding} );
+        $logger->info ( build_changed_details( $stash, $args->{paths}, $self->{encoding} ));
     }
 
     $message =~ s/^/$indent/mg if $indent and !$verbatim;
     require Encode;
     Encode::from_to( $message, 'UTF-8', $self->{encoding} );
-    print($message);
+    $logger->info($message);
 }
 
 sub fancy_rev {


More information about the svk-commit mailing list