diff options
Diffstat (limited to 'devel/p5-SVN-Web/files/patch-Log.pm')
| -rw-r--r-- | devel/p5-SVN-Web/files/patch-Log.pm | 18 |
1 files changed, 8 insertions, 10 deletions
diff --git a/devel/p5-SVN-Web/files/patch-Log.pm b/devel/p5-SVN-Web/files/patch-Log.pm index 466eb69055cd..25eb0aa73483 100644 --- a/devel/p5-SVN-Web/files/patch-Log.pm +++ b/devel/p5-SVN-Web/files/patch-Log.pm @@ -1,22 +1,20 @@ ---- lib/SVN/Web/Log.pm.org 2008-07-17 11:23:59.000000000 +0900 -+++ lib/SVN/Web/Log.pm 2008-07-17 11:27:14.000000000 +0900 -@@ -214,7 +214,10 @@ +--- lib/SVN/Web/Log.pm Sun Apr 29 23:22:51 2007 ++++ lib/SVN/Web/Log.pm Mon Dec 15 02:32:02 2008 +@@ -214,7 +215,7 @@ # entries then we're on the last page. # # If we're not on the last page then pop off the extra log entry - $ra->get_log([$path], $rev, 1, $limit + 1, 1, 1, -+ my $path_getlog = $path; -+ if ($path_getlog eq "/") {$path_getlog = "";} -+ $path_getlog =~ s/^\///; -+ $ra->get_log([$path_getlog], $rev, 1, $limit + 1, 1, 1, ++ $ra->get_log([$self->rpath], $rev, 1, $limit + 1, 1, 1, sub { $self->_log(@_) }); $at_oldest = @{ $self->{REVS} } <= $limit; -@@ -222,6 +225,7 @@ +@@ -222,7 +223,7 @@ pop @{ $self->{REVS} } unless $at_oldest; } else { # We must be displaying to the oldest rev, so no paging required -+ if($path eq "/") {$path = "";} - $ra->get_log([$path], $rev, 1, $limit, 1, 1, +- $ra->get_log([$path], $rev, 1, $limit, 1, 1, ++ $ra->get_log([$self->rpath], $rev, 1, $limit, 1, 1, sub { $self->_log(@_) }); + $at_oldest = 1; |