[Catalyst-commits] r6608 - trunk/Catalyst-Engine-Wx/lib/Catalyst/Engine

[eriam at dev.catalyst.perl.org]

Author: eriam
Date: 2007-08-01 15:22:14 +0100 (Wed, 01 Aug 2007)
New Revision: 6608

Modified:
   trunk/Catalyst-Engine-Wx/lib/Catalyst/Engine/Wx.pm
Log:
work now with controllers directly specified

Modified: trunk/Catalyst-Engine-Wx/lib/Catalyst/Engine/Wx.pm
===================================================================
--- trunk/Catalyst-Engine-Wx/lib/Catalyst/Engine/Wx.pm	2007-08-01 14:21:04 UTC (rev 6607)
+++ trunk/Catalyst-Engine-Wx/lib/Catalyst/Engine/Wx.pm	2007-08-01 14:22:14 UTC (rev 6608)
@@ -85,13 +85,11 @@
          
       $controller =~ s/\->/\//g;
       $controller =~ s/::/\//g;
-      
-      $controller = lc($controller);
    }
    
    $controller = '/'.$controller
       if ($controller !~ /^\//);
-   
+  
    foreach (keys %{ $request }) {
       $c->request->parameters->{$_} = $request->{$_};
    }