diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-03-03 08:29:43 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-03-03 08:29:43 +0000 |
| commit | f61d411c4d3cff1213d879acac3d5b738473d376 (patch) | |
| tree | 87fd1a0ad891176afde60bd3971a29855fa32686 /t | |
| parent | 227c31c3430bbf328868bf1f4c9abf171e662db9 (diff) | |
| download | perl-f61d411c4d3cff1213d879acac3d5b738473d376.tar.gz | |
Use '!' to mark native integer packings instead of '_'.
p4raw-id: //depot/cfgperl@3053
Diffstat (limited to 't')
| -rwxr-xr-x | t/lib/ipc_sysv.t | 10 | ||||
| -rwxr-xr-x | t/op/pack.t | 12 |
2 files changed, 11 insertions, 11 deletions
diff --git a/t/lib/ipc_sysv.t b/t/lib/ipc_sysv.t index 23476e11f6..87ddaefb20 100755 --- a/t/lib/ipc_sysv.t +++ b/t/lib/ipc_sysv.t @@ -115,17 +115,17 @@ if($Config{'d_semget'} eq 'define' && my $nsem = 10; - semctl($sem,0,SETALL,pack("s_*",(0) x $nsem)) or print "not "; + semctl($sem,0,SETALL,pack("s!*",(0) x $nsem)) or print "not "; print "ok 10\n"; $data = ""; semctl($sem,0,GETALL,$data) or print "not "; print "ok 11\n"; - print "not " unless length($data) == length(pack("s_*",(0) x $nsem)); + print "not " unless length($data) == length(pack("s!*",(0) x $nsem)); print "ok 12\n"; - my @data = unpack("s_*",$data); + my @data = unpack("s!*",$data); my $adata = "0" x $nsem; @@ -135,14 +135,14 @@ if($Config{'d_semget'} eq 'define' && my $poke = 2; $data[$poke] = 1; - semctl($sem,0,SETALL,pack("s_*",@data)) or print "not "; + semctl($sem,0,SETALL,pack("s!*",@data)) or print "not "; print "ok 14\n"; $data = ""; semctl($sem,0,GETALL,$data) or print "not "; print "ok 15\n"; - @data = unpack("s_*",$data); + @data = unpack("s!*",$data); my $bdata = "0" x $poke . "1" . "0" x ($nsem-$poke-1); diff --git a/t/op/pack.t b/t/op/pack.t index 4bfbfa3838..5b727974a6 100755 --- a/t/op/pack.t +++ b/t/op/pack.t @@ -248,22 +248,22 @@ print "ok ", $test++, "\n"; # 73..78: packing native shorts/ints/longs -print "not " unless length(pack("s_", 0)) == $Config{shortsize}; +print "not " unless length(pack("s!", 0)) == $Config{shortsize}; print "ok ", $test++, "\n"; -print "not " unless length(pack("i_", 0)) == $Config{intsize}; +print "not " unless length(pack("i!", 0)) == $Config{intsize}; print "ok ", $test++, "\n"; -print "not " unless length(pack("l_", 0)) == $Config{longsize}; +print "not " unless length(pack("l!", 0)) == $Config{longsize}; print "ok ", $test++, "\n"; -print "not " unless length(pack("s_", 0)) <= length(pack("i_", 0)); +print "not " unless length(pack("s!", 0)) <= length(pack("i!", 0)); print "ok ", $test++, "\n"; -print "not " unless length(pack("i_", 0)) <= length(pack("l_", 0)); +print "not " unless length(pack("i!", 0)) <= length(pack("l!", 0)); print "ok ", $test++, "\n"; -print "not " unless length(pack("i_", 0)) == length(pack("i", 0)); +print "not " unless length(pack("i!", 0)) == length(pack("i", 0)); print "ok ", $test++, "\n"; # 79..138: pack <-> unpack bijectionism |