aboutsummaryrefslogtreecommitdiffstats
path: root/devel
diff options
context:
space:
mode:
authorrafan <rafan@FreeBSD.org>2009-04-21 21:53:33 +0800
committerrafan <rafan@FreeBSD.org>2009-04-21 21:53:33 +0800
commit76b843c44d2bd08ce89aa8a8d089fc7761599c2d (patch)
tree32951aff9d5736b7647c468a3a18f9bc500a99a4 /devel
parentfeeaac7c2c349b549564edfeaf72b42d49474567 (diff)
downloadfreebsd-ports-gnome-76b843c44d2bd08ce89aa8a8d089fc7761599c2d.tar.gz
freebsd-ports-gnome-76b843c44d2bd08ce89aa8a8d089fc7761599c2d.tar.zst
freebsd-ports-gnome-76b843c44d2bd08ce89aa8a8d089fc7761599c2d.zip
- Fix HTML/Text diff with Subversion 1.5
- Bump PORTREVISION PR: ports/133877 Submitted by: Will Bond <will at imarc.net>
Diffstat (limited to 'devel')
-rw-r--r--devel/p5-SVN-Web/Makefile2
-rw-r--r--devel/p5-SVN-Web/files/patch-Diff.pm28
2 files changed, 29 insertions, 1 deletions
diff --git a/devel/p5-SVN-Web/Makefile b/devel/p5-SVN-Web/Makefile
index 75ca5744a276..b233154570da 100644
--- a/devel/p5-SVN-Web/Makefile
+++ b/devel/p5-SVN-Web/Makefile
@@ -7,7 +7,7 @@
PORTNAME= SVN-Web
PORTVERSION= 0.53
-PORTREVISION= 4
+PORTREVISION= 5
CATEGORIES= devel perl5
MASTER_SITES= CPAN
PKGNAMEPREFIX= p5-
diff --git a/devel/p5-SVN-Web/files/patch-Diff.pm b/devel/p5-SVN-Web/files/patch-Diff.pm
new file mode 100644
index 000000000000..04294bbbed5e
--- /dev/null
+++ b/devel/p5-SVN-Web/files/patch-Diff.pm
@@ -0,0 +1,28 @@
+--- lib/SVN/Web/Diff.pm.orig 2007-04-30 03:22:51.000000000 +0800
++++ lib/SVN/Web/Diff.pm 2009-04-21 18:06:59.000000000 +0800
+@@ -188,8 +188,11 @@
+
+ my $mime = $self->{cgi}->param('mime') || 'text/html';
+
+- my %types = ( $rev1 => $ra->check_path($path, $rev1),
+- $rev2 => $ra->check_path($path, $rev2) );
++ my $path_getlog = $path;
++ if ($path_getlog eq "/") {$path_getlog = "";}
++ $path_getlog =~ s/^\///;
++ my %types = ( $rev1 => $ra->check_path($path_getlog, $rev1),
++ $rev2 => $ra->check_path($path_getlog, $rev2) );
+
+ SVN::Web::X->throw(error => '(cannot diff nodes of different types: %1 %2 %3)',
+ vars => [$path, $rev1, $rev2])
+@@ -299,7 +302,10 @@
+
+ my $ra = $self->{repos}{ra};
+
+- if($ra->check_path($path, $rev) == $SVN::Node::none) {
++ my $path_getlog = $path;
++ if ($path_getlog eq "/") {$path_getlog = "";}
++ $path_getlog =~ s/^\///;
++ if($ra->check_path($path_getlog, $rev) == $SVN::Node::none) {
+ SVN::Web::X->throw(
+ error => '(path %1 does not exist in revision %2)',
+ vars => [$path, $rev],