r6903 - /trunk/libapache2-mod-perl2/ModPerl-Registry/lib/ModPerl/RegistryCooker.pm

[gwolf at users.alioth.debian.org]

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};