patch to support computed regular subexpressions

[p5sagit/p5-mst-13.2.git] / t / op / pack.t

diff --git a/t/op/pack.t b/t/op/pack.t
index 9b7bc35..725a0cb 100755 (executable)
--- 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';