[Catalyst-commits] r6604 - trunk/Catalyst-Engine-Wx/lib/Catalyst/View

[eriam at dev.catalyst.perl.org]

Author: eriam
Date: 2007-08-01 15:18:27 +0100 (Wed, 01 Aug 2007)
New Revision: 6604

Modified:
   trunk/Catalyst-Engine-Wx/lib/Catalyst/View/Wx.pm
Log:
Trap errors in wx interfaces

Modified: trunk/Catalyst-Engine-Wx/lib/Catalyst/View/Wx.pm
===================================================================
--- trunk/Catalyst-Engine-Wx/lib/Catalyst/View/Wx.pm	2007-07-31 15:57:46 UTC (rev 6603)
+++ trunk/Catalyst-Engine-Wx/lib/Catalyst/View/Wx.pm	2007-08-01 14:18:27 UTC (rev 6604)
@@ -57,7 +57,8 @@
       }
       
       if (my $code = $module->can('new')) {
-         $code->($module, @_);
+         eval { $code->($module, @_); };
+         print $@ if $@;
       }
    
       $c->stash->{'_displayed'} = 1;