From 450a55e4ae4b31d34735cf512c9f6c2f3a39ddad Mon Sep 17 00:00:00 2001 From: Larry Wall Date: Wed, 8 Aug 1990 17:06:03 +0000 Subject: perl 3.0 patch #23 patch #19, continued See patch #19. --- t/op.pack | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 't') diff --git a/t/op.pack b/t/op.pack index 9806261836..87bf5da467 100644 --- a/t/op.pack +++ b/t/op.pack @@ -1,11 +1,13 @@ #!./perl -# $Header: op.pack,v 3.0 89/10/18 15:30:39 lwall Locked $ +# $Header: op.pack,v 3.0.1.1 90/08/09 05:27:04 lwall Locked $ print "1..3\n"; -$format = "c2x5CCxsila6"; -@ary = (1,-100,127,128,32767,12345,123456,"abcdef"); +$format = "c2x5CCxsdila6"; +# Need the expression in here to force ary[5] to be numeric. This avoids +# test2 failing because ary2 goes str->numeric->str and ary doesn't. +@ary = (1,-100,127,128,32767,987.654321098 / 100.0,12345,123456,"abcdef"); $foo = pack($format,@ary); @ary2 = unpack($format,$foo); -- cgit v1.2.1