This is an automated email from the git hooks/post-receive script.

gregoa pushed a commit to tag 0.02
in repository libhttp-entity-parser-perl.

commit 97069af82b85c485d0a2ecc79b709824690948a1
Author: Masahiro Nagano <kazeb...@gmail.com>
Date:   Thu Feb 6 11:26:17 2014 +0900

    open with :unix
---
 t/02_http_body/octetstream.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/t/02_http_body/octetstream.t b/t/02_http_body/octetstream.t
index 1b55c1b..11b2fe9 100644
--- a/t/02_http_body/octetstream.t
+++ b/t/02_http_body/octetstream.t
@@ -13,7 +13,7 @@ for my $i ( 1..3 ) {
     my $test    = sprintf( "%03d", $i );
 
     my $headers = paml_loadfile( catfile( $path, "$test-headers.pml" ) );
-    my $content = IO::File->new( catfile( $path, "$test-content.dat" ) );
+    open(my $content, '<:unix',catfile( $path, "$test-content.dat" ) );
     my $results = slurp( catfile( $path, "$test-results.dat" ) );
     my $env = build_env($headers, $content);
 

-- 
Alioth's /usr/local/bin/git-commit-notice on 
/srv/git.debian.org/git/pkg-perl/packages/libhttp-entity-parser-perl.git

_______________________________________________
Pkg-perl-cvs-commits mailing list
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits

Reply via email to