Patch up the failing multi-byte write case, and un-skip

[perl5.git] / ext / Encode / t / Japanese.t

diff --git a/ext/Encode/t/Japanese.t b/ext/Encode/t/Japanese.t
index d6fa824..20f5b25 100644 (file)
--- a/ext/Encode/t/Japanese.t
+++ b/ext/Encode/t/Japanese.t
@@ -70,7 +70,7 @@ select($out);
 
 SKIP:
 {
- skip "Multi-byte write is broken",3;
+ #skip "Multi-byte write is broken",3;
  print "# dst :encoding test\n";
  open(my $src,"<:utf8",$ref) || die "Cannot open $ref:$!";
  ok(defined($src) || fileno($src));