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

[eriam at dev.catalyst.perl.org]

Author: eriam
Date: 2007-08-14 10:18:32 +0100 (Tue, 14 Aug 2007)
New Revision: 6659

Modified:
   trunk/Catalyst-Engine-Wx/lib/Catalyst/Engine/Wx.pm
Log:
Added a new to init the engine (unused so far) and added lc module name

Modified: trunk/Catalyst-Engine-Wx/lib/Catalyst/Engine/Wx.pm
===================================================================
--- trunk/Catalyst-Engine-Wx/lib/Catalyst/Engine/Wx.pm	2007-08-13 17:13:58 UTC (rev 6658)
+++ trunk/Catalyst-Engine-Wx/lib/Catalyst/Engine/Wx.pm	2007-08-14 09:18:32 UTC (rev 6659)
@@ -21,6 +21,13 @@
 use base 'Catalyst::Engine';
 use Errno 'EWOULDBLOCK';
 
+sub new {
+   my ( $class ) = @_;
+   
+   $class->SUPER::new();
+}
+
+
 sub run {
    my ( $self, $class, $options ) = @_;
    
@@ -53,10 +60,10 @@
             }
       }
    );
-    my $locale = Wx::Locale->new( Wx::Locale::GetSystemLanguage );
-    Wx::InitAllImageHandlers();
-    $app = Wx::SimpleApp->new;
 
+   my $locale = Wx::Locale->new( Wx::Locale::GetSystemLanguage );
+   Wx::InitAllImageHandlers();
+   $app = Wx::SimpleApp->new;
     
    POE::Kernel->loop_run();
    POE::Kernel->run();
@@ -87,6 +94,7 @@
          
       $controller =~ s/\->/\//g;
       $controller =~ s/::/\//g;
+      $controller = lc($controller);
    }
    
    $controller = '/'.$controller