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

[Ruslan Zakirov]

The branch, master has been updated
       via  d1fa0813093eb42b07153f7408cade179d075a64 (commit)
      from  d4ca796933a54fba87c078fc0c31c751897996ac (commit)

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

- Log -----------------------------------------------------------------
commit d1fa0813093eb42b07153f7408cade179d075a64
Author: Ruslan Zakirov <Ruslan.Zakirov at gmail.com>
Date:   Sat May 23 17:03:05 2009 +0400

    * svn log -l1 -r X:HEAD shows X as well, use +1

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

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