summaryrefslogtreecommitdiff
path: root/t
diff options
context:
space:
mode:
authorNick Ing-Simmons <nik@tiuk.ti.com>2001-03-28 18:24:02 +0000
committerNick Ing-Simmons <nik@tiuk.ti.com>2001-03-28 18:24:02 +0000
commit7d3b96bbd83d17f17b26b4c05ef623881c8477be (patch)
tree4bccefb45f6e9329c0e9904ee99fee832b8fc4bc /t
parent7847df5a36f8e61e9a1cfaa59d60168ea45d5381 (diff)
downloadperl-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-xt/lib/b.t2
-rwxr-xr-x[-rw-r--r--]t/op/utf8decode.t1
2 files changed, 1 insertions, 2 deletions
diff --git a/t/lib/b.t b/t/lib/b.t
index b10479ddff..0589d16d75 100755
--- a/t/lib/b.t
+++ b/t/lib/b.t
@@ -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;