[Bps-public-commit] Test-Chimps-Client branch, master, updated. 4b57772b4b4e84bc17a63a39dc3887dc9cb9ad2c

[Ruslan Zakirov]

The branch, master has been updated
       via  4b57772b4b4e84bc17a63a39dc3887dc9cb9ad2c (commit)
      from  3a2ea9e44a73a11896b144f2d1ff62eaa5e7329b (commit)

Summary of changes:
 lib/Test/Chimps/Smoker/SVN.pm |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

- Log -----------------------------------------------------------------
commit 4b57772b4b4e84bc17a63a39dc3887dc9cb9ad2c
Author: Ruslan Zakirov <Ruslan.Zakirov at gmail.com>
Date:   Sat May 23 13:35:29 2009 +0400

    * actually capture committer in the regexp

diff --git a/lib/Test/Chimps/Smoker/SVN.pm b/lib/Test/Chimps/Smoker/SVN.pm
index f118831..5019681 100644
--- a/lib/Test/Chimps/Smoker/SVN.pm
+++ b/lib/Test/Chimps/Smoker/SVN.pm
@@ -41,7 +41,7 @@ sub next {
 
     my $revision = $self->config->{revision};
     my $cmd = "svn log --limit 1 -q -r $revision:HEAD ". $self->uri;
-    my ($next, $committer) = (`$cmd` =~ m/^r([0-9]+)\s+\|\s*.*?\s*\|/m);
+    my ($next, $committer) = (`$cmd` =~ m/^r([0-9]+)\s+\|\s*(.*?)\s*\|/m);
     return () unless $next;
 
     return (revision => $next, committer => $committer);

-----------------------------------------------------------------------