[Catalyst-commits] r7383 - Catalyst-Runtime/5.70/trunk/lib

[jrockway at dev.catalyst.perl.org]

Author: jrockway
Date: 2008-01-13 22:07:03 +0000 (Sun, 13 Jan 2008)
New Revision: 7383

Modified:
   Catalyst-Runtime/5.70/trunk/lib/Catalyst.pm
Log:
add a comment explaining why we use bytes


Modified: Catalyst-Runtime/5.70/trunk/lib/Catalyst.pm
===================================================================
--- Catalyst-Runtime/5.70/trunk/lib/Catalyst.pm	2008-01-13 14:17:04 UTC (rev 7382)
+++ Catalyst-Runtime/5.70/trunk/lib/Catalyst.pm	2008-01-13 22:07:03 UTC (rev 7383)
@@ -1432,6 +1432,7 @@
             }
         }
         else {
+            # everything should be bytes at this point, but just in case
             $c->response->content_length( bytes::length( $c->response->body ) );
         }
     }