[Catalyst-commits] r12853 - in Catalyst-Runtime/5.80/trunk: . lib

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2010-02-09 22:26:23 +0000 (Tue, 09 Feb 2010)
New Revision: 12853

Modified:
   Catalyst-Runtime/5.80/trunk/Changes
   Catalyst-Runtime/5.80/trunk/lib/Catalyst.pm
Log:
update Changes, put comment back in

Modified: Catalyst-Runtime/5.80/trunk/Changes
===================================================================
--- Catalyst-Runtime/5.80/trunk/Changes	2010-02-09 03:26:35 UTC (rev 12852)
+++ Catalyst-Runtime/5.80/trunk/Changes	2010-02-09 22:26:23 UTC (rev 12853)
@@ -1,5 +1,8 @@
 # This file documents the revision history for Perl extension Catalyst.
 
+  Bug fixed:
+   - uri_for will now escape unsafe chars in captures and encode utf8 chars
+
 5.80020 2010-02-04 06:51:18
 
   New features:

Modified: Catalyst-Runtime/5.80/trunk/lib/Catalyst.pm
===================================================================
--- Catalyst-Runtime/5.80/trunk/lib/Catalyst.pm	2010-02-09 03:26:35 UTC (rev 12852)
+++ Catalyst-Runtime/5.80/trunk/lib/Catalyst.pm	2010-02-09 22:26:23 UTC (rev 12853)
@@ -1327,6 +1327,7 @@
           (map {
               my $param = "$_";
               utf8::encode( $param ) if utf8::is_utf8($param);
+              # using the URI::Escape pattern here so utf8 chars survive
               $param =~ s/([^A-Za-z0-9\-_.!~*'() ])/$URI::Escape::escapes{$1}/go;
               $param =~ s/ /+/g;
               "${key}=$param"; } ( ref $val eq 'ARRAY' ? @$val : $val ));