[Bps-public-commit] Test-Chimps-Anna branch, master, updated. 99724c61cb950bc309917a1b24c88d3e4bd2aa6f
jesse
jesse at bestpractical.com
Wed Oct 7 14:45:43 EDT 2009
The branch, master has been updated
via 99724c61cb950bc309917a1b24c88d3e4bd2aa6f (commit)
from 2d56cc516f6ae21f210c95d5ab5b9a67a228ca56 (commit)
Summary of changes:
lib/Test/Chimps/Anna.pm | 26 ++++++++++++++------------
1 files changed, 14 insertions(+), 12 deletions(-)
- Log -----------------------------------------------------------------
commit 99724c61cb950bc309917a1b24c88d3e4bd2aa6f
Author: Jesse Vincent <jesse at bestpractical.com>
Date: Wed Oct 7 14:45:39 2009 -0400
typo fixing
diff --git a/lib/Test/Chimps/Anna.pm b/lib/Test/Chimps/Anna.pm
index 190c29c..d905511 100644
--- a/lib/Test/Chimps/Anna.pm
+++ b/lib/Test/Chimps/Anna.pm
@@ -198,7 +198,7 @@ sub tick {
if ( $self->{passing_projects}->{ $report->project } % 5 == 0 ) {
$self->_say_to_all(
$report->project . " rev "
- . $rev,
+ . $rev
. (
? ( '(' . $date. ')' )
: ''
@@ -254,17 +254,19 @@ sub _say_to_all {
}
sub preprocess_report_metadata {
- my $self = shift;
- my $report = shift;
- my $rev = substr( $report->revision, 0, 6 );
- my $committer = $report->committer;
- $committer =~ s/^(?:.*)<(.*)>(?:.*)/$1/g;
- my $date;
- if ( $report->can('committed_date') ) {
- $dt = $self->string_to_datetime( $report->committed_date );
- $date = $self->age_as_string( time() - $dt->epoch );
- }
- return ($rev,$committer,$date);
+ my $self = shift;
+ my $report = shift;
+ my $rev = substr( $report->revision, 0, 6 );
+ my $committer = $report->committer;
+ $committer =~ s/^(?:.*)<(.*)>(?:.*)/$1/g;
+ my $date;
+ if ( $report->can('committed_date') ) {
+ my $dt = $self->string_to_datetime( $report->committed_date );
+ if ($dt) {
+ $date = $self->age_as_string( time() - $dt->epoch );
+ }
+ }
+ return ( $rev, $committer, $date );
}
-----------------------------------------------------------------------
More information about the Bps-public-commit
mailing list