From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Tue, 12 Oct 2004 16:49:53 +0000 (+0000)
Subject: Minor tweaks for the test.utf16 target, by Jarkko
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=90f6ca78c85ab94ac108f3fd8202d56948c025be;p=p5sagit%2Fp5-mst-13.2.git

Minor tweaks for the test.utf16 target, by Jarkko

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

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"};
  	}