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

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2009-04-20 09:58:15 +0100 (Mon, 20 Apr 2009)
New Revision: 9753

Modified:
   Catalyst-Runtime/5.80/trunk/Changes
   Catalyst-Runtime/5.80/trunk/lib/Catalyst/DispatchType/Chained.pm
Log:
Fix column width of unattached chains table

Modified: Catalyst-Runtime/5.80/trunk/Changes
===================================================================
--- Catalyst-Runtime/5.80/trunk/Changes	2009-04-20 08:52:34 UTC (rev 9752)
+++ Catalyst-Runtime/5.80/trunk/Changes	2009-04-20 08:58:15 UTC (rev 9753)
@@ -1,5 +1,8 @@
 # This file documents the revision history for Perl extension Catalyst.
 
+        - Fix so that width of table of unattached actions for debugging
+          ::DispatchType::Chained varies according to your terminal width 
+          (Oleg Kostyuk)
         - Fix warning message about linearized @ISA in Catalyst::Component 
           (Emanuele Zeppieri)
         - Require MX::MethodAttributes 0.06 to avoid issues with saying

Modified: Catalyst-Runtime/5.80/trunk/lib/Catalyst/DispatchType/Chained.pm
===================================================================
--- Catalyst-Runtime/5.80/trunk/lib/Catalyst/DispatchType/Chained.pm	2009-04-20 08:52:34 UTC (rev 9752)
+++ Catalyst-Runtime/5.80/trunk/lib/Catalyst/DispatchType/Chained.pm	2009-04-20 08:58:15 UTC (rev 9753)
@@ -86,7 +86,7 @@
 
     my $has_unattached_actions;
     my $unattached_actions = Text::SimpleTable->new(
-        [ 35, 'Private' ], [ 36, 'Missing parent' ],
+        [ 35, 'Private' ], [ $column_width, 'Missing parent' ],
     );
 
     ENDPOINT: foreach my $endpoint (