2 changed files with 27 additions and 1 deletions
@ -0,0 +1,24 @@
|
||||
Index: ModPerl-Registry/lib/ModPerl/RegistryCooker.pm
|
||||
--- ModPerl-Registry/lib/ModPerl/RegistryCooker.pm.orig 2006-11-20 00:31:41 +0100
|
||||
+++ ModPerl-Registry/lib/ModPerl/RegistryCooker.pm 2007-06-28 09:07:22 +0200
|
||||
@@ -337,7 +337,7 @@
|
||||
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};
|
||||
|
||||
Index: xs/APR/APR/Makefile.PL
|
||||
--- xs/APR/APR/Makefile.PL.orig 2006-11-20 00:31:02 +0100
|
||||
+++ xs/APR/APR/Makefile.PL 2007-06-28 09:07:22 +0200
|
||||
@@ -15,7 +15,7 @@
|
||||
|
||||
my %args;
|
||||
|
||||
-%args = map { split /=/, $_ } @ARGV;
|
||||
+%args = map { split /=/, $_, 2 } @ARGV;
|
||||
|
||||
$args{NAME} = 'APR';
|
||||
$args{VERSION_FROM} = 'APR.pm';
|
Loading…
Reference in new issue