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

[andyg at dev.catalyst.perl.org]

Author: andyg
Date: 2007-10-10 16:41:18 +0100 (Wed, 10 Oct 2007)
New Revision: 6979

Modified:
   Catalyst-Runtime/5.70/trunk/Changes
   Catalyst-Runtime/5.70/trunk/lib/Catalyst.pm
Log:
Removed unnecessary sprintf in debug mode that caused warnings on locales where commas are used for decimal markers.

Modified: Catalyst-Runtime/5.70/trunk/Changes
===================================================================
--- Catalyst-Runtime/5.70/trunk/Changes	2007-10-09 20:30:21 UTC (rev 6978)
+++ Catalyst-Runtime/5.70/trunk/Changes	2007-10-10 15:41:18 UTC (rev 6979)
@@ -13,6 +13,8 @@
           (Gavin Henry, Tatsuhiko Miyagawa)
         - Fixed bug where req->base and req->uri would include a port number when running
           in SSL mode.
+        - Removed unnecessary sprintf in debug mode that caused warnings on locales where
+          commas are used for decimal markers.
 
 5.7010  2007-08-22 07:41:00
         - Resource forks in 5.7009

Modified: Catalyst-Runtime/5.70/trunk/lib/Catalyst.pm
===================================================================
--- Catalyst-Runtime/5.70/trunk/lib/Catalyst.pm	2007-10-09 20:30:21 UTC (rev 6978)
+++ Catalyst-Runtime/5.70/trunk/lib/Catalyst.pm	2007-10-10 15:41:18 UTC (rev 6979)
@@ -1353,7 +1353,7 @@
     }
     
     if ($c->debug) {
-        my $elapsed = sprintf '%f', tv_interval($c->stats->getNodeValue);
+        my $elapsed = tv_interval($c->stats->getNodeValue);
         my $av = $elapsed == 0 ? '??' : sprintf '%.3f', 1 / $elapsed;
         
         my $t = Text::SimpleTable->new( [ 62, 'Action' ], [ 9, 'Time' ] );