From: John Napiorkowski <jjnapiork@cpan.org>
Date: Fri, 29 Mar 2013 17:21:54 +0000 (-0400)
Subject: fixed typo in recent checkin
X-Git-Tag: 5.90030~12
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=e6968720453a63b5d43f77c17bc147ef560957e2

fixed typo in recent checkin
---

diff --git a/Changes b/Changes
index 9c184f3..084bfd5 100644
--- a/Changes
+++ b/Changes
@@ -1,6 +1,10 @@
 # This file documents the revision history for Perl extension Catalyst.
 
 5.90021 - TBA
+  - make $app->uri_for and related methods return something sane, when called
+    as an application method, instead of a context method.  Now if you call
+    MyApp::Web->uri_for(...) you will get a generic URI object that you need to
+    resolve manually.
   - documentation updates around forwarding to chained actions
   - Fixed bug when a PSGI engine need to use psgix logger
   - Added cpanfile as a way to notice we are a dev checkout
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)) {