[Catalyst-commits] r6581 - in trunk/Catalyst-Runtime: . lib

[bricas at dev.catalyst.perl.org]

Author: bricas
Date: 2007-07-19 13:28:13 +0100 (Thu, 19 Jul 2007)
New Revision: 6581

Modified:
   trunk/Catalyst-Runtime/Changes
   trunk/Catalyst-Runtime/lib/Catalyst.pm
Log:
applied elapsed time handling patch from Emanuele Zeppieri

Modified: trunk/Catalyst-Runtime/Changes
===================================================================
--- trunk/Catalyst-Runtime/Changes	2007-07-18 18:46:11 UTC (rev 6580)
+++ trunk/Catalyst-Runtime/Changes	2007-07-19 12:28:13 UTC (rev 6581)
@@ -1,8 +1,11 @@
 This file documents the revision history for Perl extension Catalyst.
 
+X.XXXX
         - Fix bug where a nested component would be setup twice
         - Make ensure_class_loaded behave better with malformed class name
-		- Make _register_plugin use ensure_class_loaded
+        - Make _register_plugin use ensure_class_loaded
+        - Remove 'Argument "??" isn't numeric in sprintf' warning
+          (Emanuele Zeppieri)
 
 5.7008
         - Fixed a bug where Content-Length could be set to 0 if a filehandle

Modified: trunk/Catalyst-Runtime/lib/Catalyst.pm
===================================================================
--- trunk/Catalyst-Runtime/lib/Catalyst.pm	2007-07-18 18:46:11 UTC (rev 6580)
+++ trunk/Catalyst-Runtime/lib/Catalyst.pm	2007-07-19 12:28:13 UTC (rev 6581)
@@ -1353,7 +1353,7 @@
     
     if ($c->debug) {
         my $elapsed = sprintf '%f', tv_interval($c->stats->getNodeValue);
-        my $av = sprintf '%.3f', ( $elapsed == 0 ? '??' : ( 1 / $elapsed ) );
+        my $av = $elapsed == 0 ? '??' : sprintf '%.3f', 1 / $elapsed;
         
         my $t = Text::SimpleTable->new( [ 62, 'Action' ], [ 9, 'Time' ] );
         $c->stats->traverse(