Attachment 127316 Details for Bug 171128 – p5-SVN-Web-0.61.patch

[patch] p5-SVN-Web-0.61.patch

p5-SVN-Web-0.61.patch (text/plain), 6.60 KB, created by Steve Wills on 2012-08-28 00:00:13 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Steve Wills

Created: 2012-08-28 00:00:13 UTC

Size: 6.60 KB

patch

obsolete

>Index: distinfo
>===================================================================
>--- distinfo	(revision 303264)
>+++ distinfo	(working copy)
>@@ -1,2 +1,2 @@
>-SHA256 (SVN-Web-0.53.tar.gz) = 4844b14f6e76ec644c41230705725aa7d2374fddfe1beb23910eb1b708849549
>-SIZE (SVN-Web-0.53.tar.gz) = 85155
>+SHA256 (SVN-Web-0.61.tar.gz) = a5d6dbdbd7fe460a1b5413152e5ee976e4154f951476172fc956da0b0c418e2e
>+SIZE (SVN-Web-0.61.tar.gz) = 97609
>Index: files/patch-Diff.pm
>===================================================================
>--- files/patch-Diff.pm	(revision 303264)
>+++ files/patch-Diff.pm	(working copy)
>@@ -1,21 +0,0 @@
>---- lib/SVN/Web/Diff.pm	Sun Apr 29 23:22:51 2007
>-+++ lib/SVN/Web/Diff.pm	Mon Dec 15 02:30:36 2008
>-@@ -188,8 +188,8 @@
>- 
>-     my $mime = $self->{cgi}->param('mime') || 'text/html';
>- 
>--    my %types = ( $rev1 => $ra->check_path($path, $rev1),
>--		  $rev2 => $ra->check_path($path, $rev2) );
>-+    my %types = ( $rev1 => $ra->check_path($self->rpath, $rev1),
>-+		  $rev2 => $ra->check_path($self->rpath, $rev2) );
>- 
>-     SVN::Web::X->throw(error => '(cannot diff nodes of different types: %1 %2 %3)',
>- 		       vars  => [$path, $rev1, $rev2])
>-@@ -299,7 +299,7 @@
>- 
>-     my $ra   = $self->{repos}{ra};
>- 
>--    if($ra->check_path($path, $rev) == $SVN::Node::none) {
>-+    if($ra->check_path($self->rpath($path), $rev) == $SVN::Node::none) {
>- 	SVN::Web::X->throw(
>- 	    error => '(path %1 does not exist in revision %2)',
>Index: files/patch-View.pm
>===================================================================
>--- files/patch-View.pm	(revision 303264)
>+++ files/patch-View.pm	(working copy)
>@@ -1,11 +0,0 @@
>---- lib/SVN/Web/View.pm	Sun Apr 29 23:22:51 2007
>-+++ lib/SVN/Web/View.pm	Mon Dec 15 02:29:44 2008
>-@@ -134,7 +134,7 @@
>-     my $rev = $act_rev;
>- 
>-     # Get the log for this revision of the file
>--    $ra->get_log([$path], $rev, $rev, 1, 1, 1,
>-+    $ra->get_log([$self->rpath], $rev, $rev, 1, 1, 1,
>-         sub { $self->{REV} = $self->_log(@_) });
>- 
>-     # Get the text for this revision of the file
>Index: files/patch-2basic.t
>===================================================================
>--- files/patch-2basic.t	(revision 303264)
>+++ files/patch-2basic.t	(working copy)
>@@ -1,12 +0,0 @@
>---- t/2basic.t	Sun Apr 29 23:22:51 2007
>-+++ t/2basic.t	Mon Dec 15 03:09:45 2008
>-@@ -61,6 +61,9 @@
>-     # a ':'.  This catches template bugs with too many slashes.
>-     unlike($mech->uri(), qr{(?<!:)//}, 'URI does not contain "//"');
>- 
>-+    diag('skip static files checks in local tests: '.$mech->uri), return
>-+        if $mech->uri->path eq '/' or $mech->uri->path =~ m{/css/};
>-+
>-     $mech->content_unlike(qr'An error occured', '  and content was correct');
>-     if($can_tidy 
>-        and ($mech->uri() !~ m{ (?:
>Index: files/patch-action.pm
>===================================================================
>--- files/patch-action.pm	(revision 303264)
>+++ files/patch-action.pm	(working copy)
>@@ -1,24 +0,0 @@
>---- lib/SVN/Web/action.pm	Sun Apr 29 23:22:51 2007
>-+++ lib/SVN/Web/action.pm	Mon Dec 15 02:27:15 2008
>-@@ -241,7 +241,7 @@
>-     my $ra  = $self->{repos}{ra};
>- 
>-     my @log_result;
>--    $ra->get_log([$path], $rev, 1, 1, 0, 1,
>-+    $ra->get_log([$self->rpath($path)], $rev, 1, 1, 0, 1,
>-                  sub { @log_result = @_; });
>- 
>-     return @log_result if wantarray();
>-@@ -371,5 +371,12 @@
>- See L<http://www.perl.com/perl/misc/Artistic.html>
>- 
>- =cut
>-+
>-+sub rpath {
>-+    my ($self,$p) = @_;
>-+    my $path = $p || $self->{path};
>-+    $path =~ s{^/}{} if $path;
>-+    return $path;
>-+}
>- 
>- 1;
>Index: files/patch-Revision.pm
>===================================================================
>--- files/patch-Revision.pm	(revision 303264)
>+++ files/patch-Revision.pm	(working copy)
>@@ -1,11 +0,0 @@
>---- lib/SVN/Web/Revision.pm	Sun Apr 29 23:22:51 2007
>-+++ lib/SVN/Web/Revision.pm	Sun Dec 14 00:25:26 2008
>-@@ -211,7 +211,7 @@
>-         )
>-         if $rev > $yrev;
>- 
>--    $ra->get_log(['/'], $rev, $rev, 1, 1, 1,
>-+    $ra->get_log([''], $rev, $rev, 1, 1, 1,
>-         sub { $self->{REV} = $self->_log(@_) });
>- 
>-     $self->_resolve_changed_paths();
>Index: files/patch-Log.pm
>===================================================================
>--- files/patch-Log.pm	(revision 303264)
>+++ files/patch-Log.pm	(working copy)
>@@ -1,20 +0,0 @@
>---- lib/SVN/Web/Log.pm	Sun Apr 29 23:22:51 2007
>-+++ lib/SVN/Web/Log.pm	Mon Dec 15 02:32:02 2008
>-@@ -214,7 +215,7 @@
>- 	# entries then we're on the last page.
>- 	#
>- 	# If we're not on the last page then pop off the extra log entry
>--	$ra->get_log([$path], $rev, 1, $limit + 1, 1, 1,
>-+	$ra->get_log([$self->rpath], $rev, 1, $limit + 1, 1, 1,
>- 		     sub { $self->_log(@_) });
>- 
>- 	$at_oldest = @{ $self->{REVS} } <= $limit;
>-@@ -222,7 +223,7 @@
>- 	pop @{ $self->{REVS} } unless $at_oldest;
>-     } else {
>- 	# We must be displaying to the oldest rev, so no paging required
>--	$ra->get_log([$path], $rev, 1, $limit, 1, 1,
>-+	$ra->get_log([$self->rpath], $rev, 1, $limit, 1, 1,
>- 		     sub { $self->_log(@_) });
>- 
>- 	$at_oldest = 1;
>Index: pkg-plist
>===================================================================
>--- pkg-plist	(revision 303264)
>+++ pkg-plist	(working copy)
>@@ -1,5 +1,8 @@
> bin/svnweb-install
> bin/svnweb-server
>+%%SITE_PERL%%/SVN/CHANGES.pod
>+%%SITE_PERL%%/SVN/CONTRIBUTING.pod
>+%%SITE_PERL%%/SVN/UPDATING.pod
> %%SITE_PERL%%/SVN/Web.pm
> %%SITE_PERL%%/SVN/Web/Blame.pm
> %%SITE_PERL%%/SVN/Web/Browse.pm
>@@ -58,6 +61,7 @@
> %%SITE_PERL%%/SVN/Web/View.pm
> %%SITE_PERL%%/SVN/Web/X.pm
> %%SITE_PERL%%/SVN/Web/action.pm
>+%%SITE_PERL%%/%%PERL_ARCH%%/auto/SVN/Web/.packlist
> @dirrm %%SITE_PERL%%/SVN/Web/I18N
> @dirrm %%SITE_PERL%%/SVN/Web/Style/trac
> @dirrm %%SITE_PERL%%/SVN/Web/Style
>@@ -65,4 +69,6 @@
> @dirrm %%SITE_PERL%%/SVN/Web/Template/trac
> @dirrm %%SITE_PERL%%/SVN/Web/Template
> @dirrm %%SITE_PERL%%/SVN/Web
>+@dirrm %%SITE_PERL%%/%%PERL_ARCH%%/auto/SVN/Web
>+@dirrm %%SITE_PERL%%/%%PERL_ARCH%%/auto/SVN
> @dirrmtry %%SITE_PERL%%/SVN
>Index: Makefile
>===================================================================
>--- Makefile	(revision 303264)
>+++ Makefile	(working copy)
>@@ -6,8 +6,7 @@
> #
> 
> PORTNAME=	SVN-Web
>-PORTVERSION=	0.53
>-PORTREVISION=	8
>+PORTVERSION=	0.61
> CATEGORIES=	devel perl5
> MASTER_SITES=	CPAN
> PKGNAMEPREFIX=	p5-
>@@ -39,12 +38,15 @@
> 		p5-Test-HTML-Tidy>=0:${PORTSDIR}/devel/p5-Test-HTML-Tidy \
> 		p5-Test-WWW-Mechanize>=0:${PORTSDIR}/devel/p5-Test-WWW-Mechanize
> 
>-PERL_MODBUILD=	yes
>+PERL_CONFIGURE=	yes
> CONFIGURE_ARGS=	--skip_questions
> 
> MAN1=		svnweb-install.1 \
> 		svnweb-server.1
>-MAN3=		SVN::Web.3 \
>+MAN3=		SVN::CHANGES.3 \
>+		SVN::CONTRIBUTING.3 \
>+		SVN::UPDATING.3 \
>+		SVN::Web.3 \
> 		SVN::Web::Blame.3 \
> 		SVN::Web::Browse.3 \
> 		SVN::Web::Checkout.3 \

Actions: View | Diff

Attachments on bug 171128: 127316