[PATCH 02/16] t0050: perl portability fix

From: Jeff King <peff@peff.net>
Date: Mar 12, 2008, 21:30 UTC
Message-ID: <20080312213010.GC26286@coredump.intra.peff.net>
In-Reply-To: <cover.1205356737.git.peff@peff.net>

Older versions of perl (such as 5.005) don't understand -CO, nor do they understand the "U" pack specifier. Instead of using perl, let's just printf the binary bytes we are interested in.

Signed-off-by: Jeff King <peff@peff.net>
---
 t/t0050-filesystem.sh |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/t/t0050-filesystem.sh b/t/t0050-filesystem.sh
index cd088b3..3fbad77 100755
--- a/t/t0050-filesystem.sh
+++ b/t/t0050-filesystem.sh
@@ -4,8 +4,8 @@ test_description='Various filesystem issues'
 
 . ./test-lib.sh
 
-auml=`perl -CO -e 'print pack("U",0x00E4)'`
-aumlcdiar=`perl -CO -e 'print pack("U",0x0061).pack("U",0x0308)'`
+auml=`printf '\xc3\xa4'`
+aumlcdiar=`printf '\x61\xcc\x88'`
 
 test_expect_success 'see if we expect ' '

-- 
1.5.4.4.543.g30fdd.dirty