Front page | perl.perl5.porters |
Postings from March 2003
On Thursday, Mar 6, 2003, at 21:37 Asia/Tokyo, Dan Kogai wrote:
> (defined ${^UNICODE} and ${^UNICODE} != 0)
>
> should suffice.
So far as I see, it does. With the patch applied as follows,
t/enc_module.t will behave as follows;
> bleedperl -C -Mblib t/enc_module.t 1..0 # Skip: ${^UNICODE} == 95
> env PERL_UNICODE="" bleedperl -Mblib t/enc_module.t
1..0 # Skip: ${^UNICODE} == 95
> env PERL_UNICODE=0 bleedperl -Mblib t/enc_module.t
1..3
ok 1 - encoding vs. STDOUT
ok 2 - encoding vs. STDIN - 1
ok 3 - encoding vs. STDIN - 2
> bleedperl -C0 -Mblib t/enc_module.t1..3
ok 1 - encoding vs. STDOUT
ok 2 - encoding vs. STDIN - 1
ok 3 - encoding vs. STDIN - 2
It also passes make test on 5.8.0
Dan the Encode Maintainer
--- t/enc_module.t 2003/02/28 01:40:27 1.1
+++ t/enc_module.t 2003/03/06 12:39:14
@@ -10,6 +10,10 @@
print "1..0 # Skip: PerlIO was not built\n";
exit 0;
}
+ if (defined ${^UNICODE} and ${^UNICODE} != 0){
+ print "1..0 # Skip: \${^UNICODE} == ${^UNICODE}\n";
+ exit 0;
+ }
if (ord("A") == 193) {
print "1..0 # encoding pragma does not support EBCDIC
platforms\n";
exit(0);
Thread Previous
|
Thread Next