[perl #39012] another REIFY bug

[p5sagit/p5-mst-13.2.git] / t / comp / utf.t

diff --git a/t/comp/utf.t b/t/comp/utf.t
index a7b8566..90a9e5e 100644 (file)
--- a/t/comp/utf.t
+++ b/t/comp/utf.t
@@ -7,6 +7,15 @@ BEGIN {
        print "1..0 # Skip: not perlio\n";
        exit 0;
     }
+    if ($ENV{PERL_CORE_MINITEST}) {
+       print "1..0 # Skip: no dynamic loading on miniperl, no threads\n";
+       exit 0;
+    }
+    require Config; import Config;
+    if ($Config{'extensions'} !~ /\bEncode\b/) {
+      print "1..0 # Skip: Encode was not built\n";
+      exit 0;
+    }
 }
 
 require "./test.pl";
@@ -17,7 +26,7 @@ my $BOM = chr(0xFEFF);
 
 sub test {
     my ($enc, $tag, $bom) = @_;
-    open(UTF_PL, ">:encoding($enc)", "utf.pl")
+    open(UTF_PL, ">:raw:encoding($enc)", "utf.pl")
        or die "utf.pl($enc,$tag,$bom): $!";
     print UTF_PL $BOM if $bom;
     print UTF_PL "$tag\n";