Change 13405 by jhi@alpha on 2001/12/01 16:29:27
Need to hide behind an eval to avoid a warning
about :utf8 on non-perlio configs.
Affected files ...
.... //depot/perl/lib/open.t#10 edit
Differences ...
==== //depot/perl/lib/open.t#10 (text) ====
Index: perl/lib/open.t
--- perl/lib/open.t.~1~ Sat Dec 1 09:45:05 2001
+++ perl/lib/open.t Sat Dec 1 09:45:05 2001
@@ -73,6 +73,7 @@
SKIP: {
skip("no perlio, no :utf8", 4) unless $Config{'useperlio'};
+ eval <<EOE;
use open ':utf8';
open(O, ">utf8");
print O chr(0x100);
@@ -80,6 +81,7 @@
open(I, "<utf8");
is(ord(<I>), 0x100, ":utf8 single wide character round-trip");
close I;
+EOE
open F, ">a";
@a = map { chr(1 << ($_ << 2)) } 0..5; # 0x1, 0x10, .., 0x100000
End of Patch.
