develooper Front page | perl.perl5.porters | Postings from March 2003

Re: Change 18988: Needs PerlIO for :bytes.

Thread Next
From:
Dan Kogai
Date:
March 15, 2003 22:25
Subject:
Re: Change 18988: Needs PerlIO for :bytes.
Message ID:
00043330-5778-11D7-8FD4-000393AE4244@dan.co.jp
jhi,

   I consider the patch below too quick and dirty; I don't want this 
test to be skipped even when PerlIO is not available.  Is there any way 
to tell if ':utf8' is in default open layer so I can conditionally 
binmode($src, ":bytes") ?

Dan the Encode Maintainer

On Sunday, Mar 16, 2003, at 04:45 Asia/Tokyo, Jarkko Hietaniemi wrote:
> Change 18988 by jhi@kosh on 2003/03/15 18:27:36
>
> 	Needs PerlIO for :bytes.
>
> Affected files ...
>
> ... //depot/perl/ext/Encode/t/CJKT.t#14 edit
>
> Differences ...
>
> ==== //depot/perl/ext/Encode/t/CJKT.t#14 (text) ====
> Index: perl/ext/Encode/t/CJKT.t
> --- perl/ext/Encode/t/CJKT.t#13~18970~	Thu Mar 13 22:21:48 2003
> +++ perl/ext/Encode/t/CJKT.t	Sat Mar 15 10:27:36 2003
> @@ -12,11 +12,10 @@
>  	print "1..0 # Skip: EBCDIC\n";
>  	exit 0;
>      }
> -# should work w/o PerlIO now!
> -#    unless (PerlIO::Layer->find('perlio')){
> -#	print "1..0 # Skip: PerlIO required\n";
> -#	exit 0;
> -#   }
> +    unless (PerlIO::Layer->find('perlio')){
> +	print "1..0 # Skip: PerlIO required\n";
> +	exit 0;
> +    }
>      $| = 1;
>  }
>  use strict;
> End of Patch.


Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About