From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 1 Dec 2001 16:29:27 +0000 (+0000)
Subject: Need to hide behind an eval to avoid a warning
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=24c435326ff7474b83b7249c5c50531eeeffe72f;p=p5sagit%2Fp5-mst-13.2.git

Need to hide behind an eval to avoid a warning
about :utf8 on non-perlio configs.

p4raw-id: //depot/perl@13405
---

diff --git a/lib/open.t b/lib/open.t
index 9f1a860..3a42ce5 100644
--- a/lib/open.t
+++ b/lib/open.t
@@ -73,6 +73,7 @@ is( $^H{'open_IO'}, 'crlf', 'should record last layer set in %^H' );
 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 @@ SKIP: {
     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