summaryrefslogtreecommitdiff
path: root/www/p5-SVN-Web/patches/patch-ab
blob: 9547be41e85f1ca1aa3a6436d9cb0c8fdd240e11 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
$NetBSD: patch-ab,v 1.1.1.1 2003/12/03 16:13:28 epg Exp $

--- lib/SVN/Web/Branch.pm.orig	Tue Aug 26 05:26:55 2003
+++ lib/SVN/Web/Branch.pm
@@ -44,7 +44,7 @@ sub new {
 
 sub branchto {
     my ($self, $path, $rev) = @_;
-    my @branches = grep { $path =~ m|^$_/?| }
+    my @branches = grep { "$_/" eq substr ($path, 0, length($_)+1) }
 	keys %{$self->{BRANCHINFO}{src}};
 
     my $ret;
@@ -69,7 +69,7 @@ sub branchto {
 
 sub branchfrom {
     my ($self, $path, $rev) = @_;
-    my @branches = grep { $path =~ m|^$_/?| }
+    my @branches = grep { "$_/" eq substr ($path, 0, length($_)+1) }
 	keys %{$self->{BRANCHINFO}{dst}};
 
     my $ret;