head	1.2;
access;
symbols
	pkgsrc-2013Q2:1.2.0.52
	pkgsrc-2013Q2-base:1.2
	pkgsrc-2012Q4:1.2.0.50
	pkgsrc-2012Q4-base:1.2
	pkgsrc-2011Q4:1.2.0.48
	pkgsrc-2011Q4-base:1.2
	pkgsrc-2011Q2:1.2.0.46
	pkgsrc-2011Q2-base:1.2
	pkgsrc-2009Q4:1.2.0.44
	pkgsrc-2009Q4-base:1.2
	pkgsrc-2008Q4:1.2.0.42
	pkgsrc-2008Q4-base:1.2
	pkgsrc-2008Q3:1.2.0.40
	pkgsrc-2008Q3-base:1.2
	cube-native-xorg:1.2.0.38
	cube-native-xorg-base:1.2
	pkgsrc-2008Q2:1.2.0.36
	pkgsrc-2008Q2-base:1.2
	pkgsrc-2008Q1:1.2.0.34
	pkgsrc-2008Q1-base:1.2
	pkgsrc-2007Q4:1.2.0.32
	pkgsrc-2007Q4-base:1.2
	pkgsrc-2007Q3:1.2.0.30
	pkgsrc-2007Q3-base:1.2
	pkgsrc-2007Q2:1.2.0.28
	pkgsrc-2007Q2-base:1.2
	pkgsrc-2007Q1:1.2.0.26
	pkgsrc-2007Q1-base:1.2
	pkgsrc-2006Q4:1.2.0.24
	pkgsrc-2006Q4-base:1.2
	pkgsrc-2006Q3:1.2.0.22
	pkgsrc-2006Q3-base:1.2
	pkgsrc-2006Q2:1.2.0.20
	pkgsrc-2006Q2-base:1.2
	pkgsrc-2006Q1:1.2.0.18
	pkgsrc-2006Q1-base:1.2
	pkgsrc-2005Q4:1.2.0.16
	pkgsrc-2005Q4-base:1.2
	pkgsrc-2005Q3:1.2.0.14
	pkgsrc-2005Q3-base:1.2
	pkgsrc-2005Q2:1.2.0.12
	pkgsrc-2005Q2-base:1.2
	pkgsrc-2005Q1:1.2.0.10
	pkgsrc-2005Q1-base:1.2
	pkgsrc-2004Q4:1.2.0.8
	pkgsrc-2004Q4-base:1.2
	pkgsrc-2004Q3:1.2.0.6
	pkgsrc-2004Q3-base:1.2
	pkgsrc-2004Q2:1.2.0.4
	pkgsrc-2004Q2-base:1.2
	pkgsrc-2004Q1:1.2.0.2
	pkgsrc-2004Q1-base:1.2
	pkgsrc-base:1.1.1.1
	TNF:1.1.1;
locks; strict;
comment	@# @;


1.2
date	2003.12.07.01.50.11;	author epg;	state dead;
branches;
next	1.1;

1.1
date	2003.12.03.16.13.28;	author epg;	state Exp;
branches
	1.1.1.1;
next	;

1.1.1.1
date	2003.12.03.16.13.28;	author epg;	state Exp;
branches;
next	;


desc
@@


1.2
log
@Update to 0.35.

Upstream change log:

[Changes for 0.35 - Nov 19, 2003]
* Fix RSS links to revisions under mod_perl.
* Misc fixes and API catch-up.
@
text
@$NetBSD: patch-ab,v 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;
@


1.1
log
@Initial revision
@
text
@d1 1
a1 1
$NetBSD$
@


1.1.1.1
log
@import p5-SVN-Web-0.30pre0.40.

SVN::Web is a repository browser for Subversion, similar to cvsweb
and ViewCVS.

This is a snapshot from the SVN::Web Subversion repository; it is
*NOT* a stable release.
@
text
@@