[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