diff options
| author | Erwin Lansing <erwin@FreeBSD.org> | 2007-06-27 20:42:58 +0000 |
|---|---|---|
| committer | Erwin Lansing <erwin@FreeBSD.org> | 2007-06-27 20:42:58 +0000 |
| commit | e95df48964a4f4268967bf629abd08c23de9b6e3 (patch) | |
| tree | 1543f2a44d5fc50ed30d802a5ea977db649767b8 /www | |
| parent | 583cd2eb89f8c25c39b4eda8e217514d66cd5ca3 (diff) | |
| download | ports-e95df48964a4f4268967bf629abd08c23de9b6e3.tar.gz ports-e95df48964a4f4268967bf629abd08c23de9b6e3.zip | |
Notes
Diffstat (limited to 'www')
| -rw-r--r-- | www/mod_perl2/Makefile | 5 | ||||
| -rw-r--r-- | www/mod_perl2/files/patch-RegistryCooker.pm | 12 |
2 files changed, 16 insertions, 1 deletions
diff --git a/www/mod_perl2/Makefile b/www/mod_perl2/Makefile index 0ac2acb39c74..3899bb3fe456 100644 --- a/www/mod_perl2/Makefile +++ b/www/mod_perl2/Makefile @@ -7,7 +7,7 @@ PORTNAME= mod_perl PORTVERSION= 2.0.3 -PORTREVISION= 1 +PORTREVISION= 2 PORTEPOCH= 3 CATEGORIES= www perl5 MASTER_SITES= http://perl.apache.org/dist/ \ @@ -72,6 +72,9 @@ PLIST_SUB= THREADMUTEX="@comment " IGNORE= requires perl 5.8.x or later. Install lang/perl5.8 then try again .endif +pre-configure: + ${RM} ${WRKSRC}/ModPerl-Registry/lib/ModPerl/RegistryCooker.pm.orig + post-install: ${MKDIR} ${PREFIX}/${APACHEINCLUDEDIR}/modules/perl ${INSTALL_DATA} ${WRKSRC}/src/modules/perl/*.h \ diff --git a/www/mod_perl2/files/patch-RegistryCooker.pm b/www/mod_perl2/files/patch-RegistryCooker.pm new file mode 100644 index 000000000000..cf86c8a04306 --- /dev/null +++ b/www/mod_perl2/files/patch-RegistryCooker.pm @@ -0,0 +1,12 @@ +diff -Naurp ModPerl-Registry/lib/ModPerl/RegistryCooker.pm.orig ModPerl-Registry/lib/ModPerl/RegistryCooker.pm +--- ModPerl-Registry/lib/ModPerl/RegistryCooker.pm.orig 2006-11-19 18:31:41.000000000 -0500 ++++ ModPerl-Registry/lib/ModPerl/RegistryCooker.pm 2007-03-30 19:08:05.000000000 -0400 +@@ -337,7 +337,7 @@ sub namespace_from_uri { + my $self = shift; + + my $path_info = $self->{REQ}->path_info; +- my $script_name = $path_info && $self->{URI} =~ /$path_info$/ ++ my $script_name = $path_info && $self->{URI} =~ /\Q$path_info\E$/ + ? substr($self->{URI}, 0, length($self->{URI}) - length($path_info)) + : $self->{URI}; + |