X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fop%2Fpack.t;h=725a0cb87fa4bd89af405d588de2f388dde97049;hb=0f5d15d614a56a8b655f35e4e8c6a0dba34da106;hp=9b7bc351f90943c7ef6ba108710f617643241359;hpb=eddc390b857822ea7e06f75e568c736ee2f8c72d;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/op/pack.t b/t/op/pack.t
index 9b7bc35..725a0cb 100755
--- a/t/op/pack.t
+++ b/t/op/pack.t
@@ -160,7 +160,7 @@ foreach my $t (@templates) {
 
 # 57..60: uuencode/decode
 
-$in = join "", map { chr } 0..255;
+$in = pack 'C*', 0 .. 255;
 
 # just to be anal, we do some random tr/`/ /
 $uu = <<'EOUU';