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;
|