From: Nicholas Clark <nick@ccl4.org>
Date: Thu, 8 Oct 2009 09:10:30 +0000 (+0200)
Subject: Avoid using bytes in require.t, as pack "C0U" does what we need.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6eaf04c0a40058ba450b733f2bc77c3e9b5bbfe7;p=p5sagit%2Fp5-mst-13.2.git

Avoid using bytes in require.t, as pack "C0U" does what we need.
---

diff --git a/t/comp/require.t b/t/comp/require.t
index 0746b3b..d561ad6 100644
--- a/t/comp/require.t
+++ b/t/comp/require.t
@@ -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));