diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-02-28 16:23:15 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-02-28 16:23:15 +0000 |
commit | 19e194ad5a0b332a85659fe3309d0a3b36eef904 (patch) | |
tree | 4d1e9450dbff4857b435353983efdd1e3af2482c /t/lib | |
parent | 419f661778e370673da98a64e4f8542f2c1d4968 (diff) | |
download | perl-19e194ad5a0b332a85659fe3309d0a3b36eef904.tar.gz |
AIX 64-bit patches from Steven Hirsch <hirschs@btv.ibm.com>
The patch to File/Glob/Makefile.PL is inconvenient but at the
moment necessary: adding an ext/FIle/Glob/hints/aix.pl to turn
off the optimization ($self->{OPTIMIZE} = '') doesn't work,
the file is processed by MakeMaker but OPTIMIZE ends up as -O
in the resulting Makefile. A MakeMaker bug?
p4raw-id: //depot/cfgperl@5323
Diffstat (limited to 't/lib')
-rwxr-xr-x | t/lib/ipc_sysv.t | 19 |
1 files changed, 15 insertions, 4 deletions
diff --git a/t/lib/ipc_sysv.t b/t/lib/ipc_sysv.t index 9777292f37..55d9ba197f 100755 --- a/t/lib/ipc_sysv.t +++ b/t/lib/ipc_sysv.t @@ -81,9 +81,16 @@ if ($Config{'d_msgget'} eq 'define' && my $test5bad; my $test6bad; - unless (msgsnd($msg,pack("L a*",$msgtype,$msgtext),IPC_NOWAIT)) { + if ($Config{'use64bitall'} eq 'define') { + unless (msgsnd($msg,pack("L L a*",0,$msgtype,$msgtext),IPC_NOWAIT)) { print "not "; - $test2bad = 1; + $test2bad = 1; + } + } else { + unless (msgsnd($msg,pack("L a*",$msgtype,$msgtext),IPC_NOWAIT)) { + print "not "; + $test2bad = 1; + } } print "ok 2\n"; if ($test2bad) { @@ -127,8 +134,12 @@ EOM EOM } - my($rmsgtype,$rmsgtext) = unpack("L a*",$msgbuf); - + my($rmsgtype,$rmsgtext); + if ($Config{'use64bitall'} eq 'define') { + (undef,$rmsgtype,$rmsgtext) = unpack("L L a*",$msgbuf) + } else { + ($rmsgtype,$rmsgtext) = unpack("L a*",$msgbuf) + } unless($rmsgtype == $msgtype && $rmsgtext eq $msgtext) { print "not "; $test6bad = 1; |