perl-dev mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Stas Bekman <s...@stason.org>
Subject Re: [mp2] t/api/custom_response.t needs binmode
Date Fri, 13 Aug 2004 01:57:05 GMT
Markus Wichitill wrote:
> t/api/custom_response.t needs binmode to succeed on Win32:
> 
> Index: t/api/custom_response.t
> ===================================================================
> RCS file: /home/cvspublic/modperl-2.0/t/api/custom_response.t,v
> retrieving revision 1.2
> diff -u -r1.2 custom_response.t
> --- t/api/custom_response.t    3 Aug 2004 16:22:44 -0000    1.2
> +++ t/api/custom_response.t    13 Aug 2004 01:21:26 -0000
> @@ -20,7 +20,7 @@
>      qw(api custom_response.txt);
> 
>  open my $fh, $file or die "Can't open $file: $!";
> -my $data = do { local $/; <$fh> };
> +my $data = do { binmode $fh; local $/; <$fh> };
>  close $fh;
> 
>  plan tests => 4, need_lwp;

Thanks Markus, committed.

-- 
__________________________________________________________________
Stas Bekman            JAm_pH ------> Just Another mod_perl Hacker
http://stason.org/     mod_perl Guide ---> http://perl.apache.org
mailto:stas@stason.org http://use.perl.org http://apacheweek.com
http://modperlbook.org http://apache.org   http://ticketmaster.com

---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscribe@perl.apache.org
For additional commands, e-mail: dev-help@perl.apache.org


Mime
View raw message