diff options
| author | Larry Wall <lwall@jpl-devvax.jpl.nasa.gov> | 1990-08-08 17:06:03 +0000 |
|---|---|---|
| committer | Larry Wall <lwall@jpl-devvax.jpl.nasa.gov> | 1990-08-08 17:06:03 +0000 |
| commit | 450a55e4ae4b31d34735cf512c9f6c2f3a39ddad (patch) | |
| tree | 752aeabe6e76da59a339e47582e399d4e5c184fe /t | |
| parent | 154e51a4a1b0258759b5e901183403af515a35b9 (diff) | |
| download | perl-450a55e4ae4b31d34735cf512c9f6c2f3a39ddad.tar.gz | |
perl 3.0 patch #23 patch #19, continued
See patch #19.
Diffstat (limited to 't')
| -rw-r--r-- | t/op.pack | 8 |
1 files changed, 5 insertions, 3 deletions
@@ -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); |