diff options
author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-03-28 18:24:02 +0000 |
---|---|---|
committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-03-28 18:24:02 +0000 |
commit | 7d3b96bbd83d17f17b26b4c05ef623881c8477be (patch) | |
tree | 4bccefb45f6e9329c0e9904ee99fee832b8fc4bc /t | |
parent | 7847df5a36f8e61e9a1cfaa59d60168ea45d5381 (diff) | |
download | perl-7d3b96bbd83d17f17b26b4c05ef623881c8477be.tar.gz |
PerlIO.pm / perlio.pm conflict.
Update some pods.
Make t/op/utf8decode.t a text file.
p4raw-id: //depot/perlio@9417
Diffstat (limited to 't')
-rwxr-xr-x | t/lib/b.t | 2 | ||||
-rwxr-xr-x[-rw-r--r--] | t/op/utf8decode.t | 1 |
2 files changed, 1 insertions, 2 deletions
@@ -140,7 +140,7 @@ ok; chomp($a = `$^X $path "-MB::Stash" "-Mwarnings" -e1`); $a = join ',', sort split /,/, $a; -$a =~ s/-u(perlio|open)(?:::\w+)?,//g if defined $Config{'useperlio'} and $Config{'useperlio'} eq 'define'; +$a =~ s/-u(PerlIO|open)(?:::\w+)?,//g if defined $Config{'useperlio'} and $Config{'useperlio'} eq 'define'; $a =~ s/-uWin32,// if $^O eq 'MSWin32'; $a =~ s/-u(Cwd|File|File::Copy|OS2),//g if $^O eq 'os2'; $a =~ s/-uCwd,// if $^O eq 'cygwin'; diff --git a/t/op/utf8decode.t b/t/op/utf8decode.t index 2893ffc62b..04656ec9f6 100644..100755 --- a/t/op/utf8decode.t +++ b/t/op/utf8decode.t @@ -8,7 +8,6 @@ BEGIN { { my $wide = v256; use bytes; - print STDERR ord($wide),"\n"; if (ord($wide) == 140) { print "1..0 # Skip: UTF-EBCDIC (not UTF-8) used here\n"; exit 0; |