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.29;	author epg;	state Exp;
branches
	1.1.1.1;
next	;

1.1.1.1
date	2003.12.03.16.13.29;	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-ae,v 1.1 2003/12/03 16:13:29 epg Exp $

--- lib/SVN/Web/Diff.pm.orig	Tue Aug 26 07:15:37 2003
+++ lib/SVN/Web/Diff.pm
@@@@ -21,19 +21,19 @@@@ sub run {
     my $rev2 = $self->{cgi}->param('rev2');
 
     my $root1 = $fs->revision_root ($rev1);
-    my $kind = SVN::Fs::check_path ($root1, $self->{path});
+    my $kind = $root1->check_path ($self->{path});
 
-    die "path does not exist" if $kind == $SVN::Core::node_none;
+    die "path does not exist" if $kind == $SVN::Node::none;
     # TODO: a diff editor using SVN::Editor::Simple
-    die "directory diff not implemented yet" if $kind == $SVN::Core::node_dir;
+    die "directory diff not implemented yet" if $kind == $SVN::Node::dir;
 
     my $root2 = $fs->revision_root ($rev2);
 
     # TODO: different type of presentation, download, etc
     return { mimetype => 'text/plain',
 	     body => Text::Diff::diff
-	     (SVN::Fs::file_contents($root1, $self->{path}),
-	      SVN::Fs::file_contents($root2, $self->{path}),
+	     ($root1->file_contents ($self->{path}),
+	      $root2->file_contents ($self->{path}),
 	      { STYLE => "Unified" })
 	     };
 }
@


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