Bytecode patching from Enache.

p4raw-id: //depot/perl@20485

1 files changed, 5 insertions, 4 deletions

diff --git a/ext/B/t/bytecode.t b/ext/B/t/bytecode.t
index 47bae92dc7..e8f7d6bc9b 100644
--- a/ext/B/t/bytecode.t
+++ b/ext/B/t/bytecode.t
@@ -7,6 +7,11 @@ BEGIN {
     }
     chdir 't' if -d 't';
     @INC = qw(../lib);
+    use Config;
+    if ($Config{ccflags} =~ /-DPERL_COPY_ON_WRITE/) {
+	print "1..0 # skip - no COW for now\n";
+	exit 0;
+    }
     require './test.pl'; # for run_perl()
 }
 use strict;
@@ -104,10 +109,6 @@ my $i = 1;
 my $foo = sub {$i = shift if @_};
 &$foo(3);
 ############################################################
-$_="\xff\xff"; use utf8; utf8::encode $_; print $_
->>>>
-\xc3\xbf\xc3\xbf
-############################################################
 $x="Cannot use"; print index $x, "Can"
 >>>>
 0