Avoid using bytes in require.t, as pack "C0U" does what we need.
authorNicholas Clark <nick@ccl4.org>
Thu, 8 Oct 2009 09:10:30 +0000 (11:10 +0200)
committerNicholas Clark <nick@ccl4.org>
Thu, 8 Oct 2009 12:35:40 +0000 (14:35 +0200)
t/comp/require.t

index 0746b3b..d561ad6 100644 (file)
@@ -30,7 +30,6 @@ sub write_file {
     my $f = shift;
     open(REQ,">$f") or die "Can't write '$f': $!";
     binmode REQ;
-    use bytes;
     print REQ @_;
     close REQ or die "Could not close $f: $!";
 }
@@ -281,7 +280,7 @@ EOT
 
 if ($Is_EBCDIC || $Is_UTF8) { exit; }
 
-my $utf8 = chr(0xFEFF);
+my $utf8 = pack "C0U", 0xFEFF;
 
 $i++; do_require(qq(${utf8}print "ok $i\n"; 1;\n));