[libhttp-entity-parser-perl] 06/07: open with urlencode.t
gregor herrmann
gregoa at debian.org
Sun Oct 23 00:23:34 UTC 2016
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 7e6038e2e66aeed2fbfd67b9934898f44d675406
Author: Masahiro Nagano <kazeburo at gmail.com>
Date: Thu Feb 6 11:29:33 2014 +0900
open with urlencode.t
---
t/02_http_body/urlencoded.t | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/t/02_http_body/urlencoded.t b/t/02_http_body/urlencoded.t
index 28aa1c8..13eede3 100644
--- a/t/02_http_body/urlencoded.t
+++ b/t/02_http_body/urlencoded.t
@@ -13,7 +13,7 @@ for my $i ( 1..6 ) {
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 = paml_loadfile( catfile( $path, "$test-results.pml" ) );
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
More information about the Pkg-perl-cvs-commits
mailing list