[Catalyst-commits] r7462 - in trunk/HTTP-Body: . lib/HTTP t

[andyg at dev.catalyst.perl.org]

Author: andyg
Date: 2008-02-27 22:06:55 +0000 (Wed, 27 Feb 2008)
New Revision: 7462

Modified:
   trunk/HTTP-Body/Changes
   trunk/HTTP-Body/lib/HTTP/Body.pm
   trunk/HTTP-Body/t/05urlencoded.t
Log:
HTTP::Body 1.02, fix urlencoded test on Windows

Modified: trunk/HTTP-Body/Changes
===================================================================
--- trunk/HTTP-Body/Changes	2008-02-27 18:52:58 UTC (rev 7461)
+++ trunk/HTTP-Body/Changes	2008-02-27 22:06:55 UTC (rev 7462)
@@ -1,5 +1,8 @@
 This file documents the revision history for Perl extension HTTP::Body.
 
+1.02    2008-02-27 17:30:00
+        - Fixed issue with urlencoded test on Windows.
+
 1.01    2008-02-23 11:30:00
         - Fixed performance issue with urlencoded regex.
 

Modified: trunk/HTTP-Body/lib/HTTP/Body.pm
===================================================================
--- trunk/HTTP-Body/lib/HTTP/Body.pm	2008-02-27 18:52:58 UTC (rev 7461)
+++ trunk/HTTP-Body/lib/HTTP/Body.pm	2008-02-27 22:06:55 UTC (rev 7462)
@@ -4,7 +4,7 @@
 
 use Carp       qw[ ];
 
-our $VERSION = '1.01';
+our $VERSION = '1.02';
 
 our $TYPES = {
     'application/octet-stream'          => 'HTTP::Body::OctetStream',

Modified: trunk/HTTP-Body/t/05urlencoded.t
===================================================================
--- trunk/HTTP-Body/t/05urlencoded.t	2008-02-27 18:52:58 UTC (rev 7461)
+++ trunk/HTTP-Body/t/05urlencoded.t	2008-02-27 22:06:55 UTC (rev 7462)
@@ -37,6 +37,7 @@
     # Check trailing header on the chunked request
     if ( $i == 3 ) {
         my $content = IO::File->new( catfile( $path, "002-content.dat" ) );
+        binmode $content;
         $content->read( my $buf, 4096 );
         is( $body->trailing_headers->header('Content-MD5'), md5_hex($buf), "$test trailing header ok" );
     }