X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/9df0f64f445f30276560fec596914dd510e244e9..90f6ca78c85ab94ac108f3fd8202d56948c025be:/t/TEST?ds=sidebyside

diff --git a/t/TEST b/t/TEST
index afce704..fb3adb9 100755
--- a/t/TEST
+++ b/t/TEST
@@ -149,7 +149,7 @@ elsif ($with_utf16) {
 		unlink($u);
 		if (open(A, $a)) {
 		    if (open(U, ">$u")) {
-			print U pack("$f", 0xFEFF);
+			print U pack("$f", 0xFEFF) if $b;
 			while (<A>) {
 			    print U pack("$f*", unpack("C*", $_));
 			}
@@ -248,6 +248,9 @@ EOT
  	open(SCRIPT,"<$test") or die "Can't run $test.\n";
  	$_ = <SCRIPT>;
  	close(SCRIPT) unless ($type eq 'deparse');
+	if ($with_utf16) {
+	    $_ =~ tr/\0//d;
+	}
  	if (/#!.*\bperl.*\s-\w*([tT])/) {
  	    $switch = qq{"-$1"};
  	}