[Catalyst-commits] r11634 - Catalyst-Runtime/5.80/branches/uri_encode_captures_andor_args_take2/lib

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2009-10-19 16:54:08 +0000 (Mon, 19 Oct 2009)
New Revision: 11634

Modified:
   Catalyst-Runtime/5.80/branches/uri_encode_captures_andor_args_take2/lib/Catalyst.pm
Log:
Well, this fixes my current issue, and doesn't seem to break any tests.. This likely means that the tests are still shit

Modified: Catalyst-Runtime/5.80/branches/uri_encode_captures_andor_args_take2/lib/Catalyst.pm
===================================================================
--- Catalyst-Runtime/5.80/branches/uri_encode_captures_andor_args_take2/lib/Catalyst.pm	2009-10-19 16:53:27 UTC (rev 11633)
+++ Catalyst-Runtime/5.80/branches/uri_encode_captures_andor_args_take2/lib/Catalyst.pm	2009-10-19 16:54:08 UTC (rev 11634)
@@ -1247,9 +1247,10 @@
     }
 
     if ( blessed($path) ) { # action object
-        my $captures = ( scalar @args && ref $args[0] eq 'ARRAY'
-                         ? shift(@args)
-                         : [] );
+        my $captures = [ map { URI::Escape::uri_escape($_) }
+                        ( scalar @args && ref $args[0] eq 'ARRAY'
+                         ? @{ shift(@args) }
+                         : ()) ];
         my $action = $path;
         $path = $c->dispatcher->uri_for_action($action, $captures);
         if (not defined $path) {