r6903 - /trunk/libapache2-mod-perl2/ModPerl-Registry/lib/ModPerl/RegistryCooker.pm
gwolf at users.alioth.debian.org
gwolf at users.alioth.debian.org
Fri Aug 17 23:09:47 UTC 2007
Author: gwolf
Date: Fri Aug 17 23:09:47 2007
New Revision: 6903
URL: http://svn.debian.org/wsvn/?sc=1&rev=6903
Log:
Overzealous committing - The fix was committed both as a patch _and_
directly to the file.
Obviously, it didn't fly :)
Modified:
trunk/libapache2-mod-perl2/ModPerl-Registry/lib/ModPerl/RegistryCooker.pm
Modified: trunk/libapache2-mod-perl2/ModPerl-Registry/lib/ModPerl/RegistryCooker.pm
URL: http://svn.debian.org/wsvn/trunk/libapache2-mod-perl2/ModPerl-Registry/lib/ModPerl/RegistryCooker.pm?rev=6903&op=diff
==============================================================================
--- trunk/libapache2-mod-perl2/ModPerl-Registry/lib/ModPerl/RegistryCooker.pm (original)
+++ trunk/libapache2-mod-perl2/ModPerl-Registry/lib/ModPerl/RegistryCooker.pm Fri Aug 17 23:09:47 2007
@@ -336,7 +336,7 @@
my $self = shift;
my $path_info = $self->{REQ}->path_info;
- my $script_name = $path_info && $self->{URI} =~ /\Q$path_info\E$/
+ my $script_name = $path_info && $self->{URI} =~ /$path_info$/
? substr($self->{URI}, 0, length($self->{URI}) - length($path_info))
: $self->{URI};
More information about the Pkg-perl-cvs-commits
mailing list