X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=lib%2FCatalyst.pm;h=2159d79acae6ff5f614492e3fe39cc52e304e799;hp=b008e3a7bbcef1fb2ca9fccd23c361d104b6eb1e;hb=e6968720453a63b5d43f77c17bc147ef560957e2;hpb=64111aca12ab4c4b405737d9fc67aea47354c6d7

diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm
index b008e3a..2159d79 100644
--- a/lib/Catalyst.pm
+++ b/lib/Catalyst.pm
@@ -1341,7 +1341,7 @@ sub uri_for {
     # join args with '/', or a blank string
     my $args = join('/', grep { defined($_) } @args);
     $args =~ s/\?/%3F/g; # STUPID STUPID SPECIAL CASE
-    $args =~ s!^/+!!i;
+    $args =~ s!^/+!!;
 
     my ($base, $class) = ('/', 'URI::_generic');
     if(blessed($c)) {